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RO1 PATCH INFORMATION 


This patch to be incorporated in object 06-232 R00.-1 
on multimedia packages. 
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MODEL 3220 
WRITABLE CONTROL STORE CWCS) 
TEST PROGRAM 


1e1 GENERAL 


The purpose of the Model 3220 Writable Control Store (WCS) test 
is to verify its operation by exercising the WCS RA with 
worst-case data patterns and be executing the microcode from 
every location in ite Also included is a test to check the 
microregisterse Prior to exercising. these tests, the program 
checks for the correct execution of the WDCS, RDCS, FCS, and BDCS 
instructionse In order to perform this test, the operator should 
be familiar with the contents of the Model 3220 Microinstruction 
Reference Manual, Publication Number 29-694. 


2e1 REQUIREMENTS OF MACHINE UNDER TEST 


This program assumes that the programs listed below have been run 
without detecting an error. 


Series 3200 Processor Test Part 1 06-228 

series 3200 Processor Test Part 2 06-229 

Series 3200 Memory Test 06-236F01 
06-236F02 


Other applicable test programs: 


Model 1100 Terminal Test 06-217 
Model 1200 Terminal Test 06-218 


3-1 MINIMUM HARDWARE REQUIRED 


@® Processor: Model 3220 with WCS option 
e Minimum memory: 128kb 


e Console input device (refer to Appendix A): Teletype, CRT, or 
Carousel 300 on PASLA 


e List device (refer to Appendix A): Teletype, CRT, Carousel 
300 on PASLA, or Line Printer 
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Object input device or multimedia loader 


LOADING PROCEDURES 


The program object is self-loading using the X‘50° sequence shown 
below: 


LOCATION CONTENTS 


** 30" X¥' 0000? 

“7°32” x*o000° 

xy oh" X¥*O000* 

X"*36" X¥*O050' 

450" X¥*p50c0" 

A 52" ** O0OCE* 

K*5u" X¥*4300' 

X'56" X¥*0080* 

X* 78" X*85A1° For 800 BPI mag tape 
Xx" 78" X*C186" For floppy media disc 
Naa: X*13299° For high-speed, paper-tape reader/punch 


Ue1-2 Multimedia Diagnostic Loading Procedure 


To 


load this program from the Perkin-Elmer Multimedia Diagnostic 


System, vcefer tc Program Number 06-176A15- 


5e1 


OPERATING PROCEDURES 


When the program is loaded, refer to Appendix A, and set up the 
console and list device parameters if devices other than the 
standard system console are desired. Select the program start 
address (X*"AO0O‘), and begin execution. Observe the following 
title is output to the console device: 


MODEL 3220 WCS TESST 06-232R00 


* 


fo oa es | Normal Testing 


When the title has been printed, the program returns with a 
prompt on the console device. Enter the RUN command. The 
program prints “WCS detected", and if no errors are detected 
in the ‘INIT’ routine (see listing and options), it prints 
"TEST EXECUTION STARTED’, and the following tests are executed 
in sequencee 


LES. OU 


06-232N95RO0A15 


The address of each fullword of WCS is written as data into 
that fullword. The fullword is read and checked in each case. 


Phot a 


This is the worst-case access test. ZEROS are written into 
each fullword of WCS. A fullword is read out and tested for 
ZERO, and ONE’s are written into the next sequential fullword. 


Thoeo-2 


This subtest tests all data Lines and WCS locations. The test 
pattern Y*Socoodgondd’, Y*'4oo000000', Y"'20000000' .4., Y'QOONDNO2', 
Y¥°00000001" is loaded into each 16-fullword block of wWCS 
starting at the lowest address. The complement of the test 
pattern is loaded, starting at the highest address. The data 
is read back and checked in each case. 


TEST 3 


ZERO"s are written into all WCS locations. Fach successive 
fullword is read out, checked for ZEROs, and rewritten with 
all ONES. Fach fullword of WCS is read back and tested for 
all ONES. 


TEST 4 


This subtest verifies that data written to a WCS location is 
not simultaneously written into any other WCS location. 


SUBTEST 5 


This subtest checks the WCS with worst-case data patterns. 
The WCS is first tested with the patterns Y°55555555" and 
Y°AAAAAAAAS.« The patterns Y'7FFFFFFF', Y*BFFFFFFF*...e, 
Y*FFFFFFFE* are written (a single ZERO bit moved through a 
field of ONE'S). Finally, the patterns Y*BOQOO0000CDO"’, 
Y°ROOOOO00O0% .2e, Y*'OOO000001" are written (a single ONE bit is 
moved through a field of ZEROs). The data is read hack and 
tested in each case. 


TEST 6 


A microcode subroutine is loaded into the first portion of WCS 
and executed by using the BDCS and ECS instructions. All 16 


variations of the ECS instruction are used. (The 
microsubroutine is relocated to the next available WCS 
location and re-executed. The process is repeated for all 


available WCS locations.) A subroutine for testing BRANCH and 
YDP1 is also executed. 
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TEST 9 


All the microregisters are zeroed. Data pattern of 
Y'‘OOOO00001" ais written into a microregister.e Data is read 
back from all the microregisters (both from A and R_- stacks) 
and checked. Test is repeated using the same data pattern for 
all the microreaqisters. Test is executed again as above with 
data patterns of Y'00000002', Y'OOOOOOOT' .e oe Y'FEFEFFFFF 
(marching ones) and with data patterns of Y'TJFFFFFFF', 
Y'3FFRPFFFF*...Y°90QCO09000" (marching zeros through ones). Test 
also uses alternating patterns of A*s and 5's to check the 
microregisterSse 
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APPENDIX A 
USER DEVICE DEFINITION 


The halfword labeled I0 (see the listing) has the default value 
for the ASCII Programmer's Console on a PASLA interface. This 
device is used as the operator's command console and as the list 
devicee If a different configuration is desired, change location 
I9 as follows: 


ee A ene AN ED EE EH EN LEU cae CS GE VEY cm come eum me SS a GU SE ee ee en DY Le Crm er eam SE OR ee te cee cm ter Gey cee ts rere come ee Ori mee mente “tere. 


‘TO" | CONSOLE DEVICE IDENTIFIER | LIST DEVICE IDENTIFIER | 


On eR eS et ee GD TO Re eee mm ee sem ED Gre as me QD SR Teen UD ee cree 90 ee Em eae ee cm i ee ee ter ee se mt: ee SE we a een tt te ate et 


AO ey ARE OR OU AD OD ED ee eR ND ene ame eee cam SR me ee eet ees ee dee Se ee me cee ee ee eR AE eee eee tee re oe cee ee et Ra hee ee i eee 


{| CONSOLE DEVICE | 
| IDENTIFIER | EXPLANATICN 


| xo | CRT or GDT on PASLA/PALM interface, | 
| | strapped for FDX and highest baud rate. | 


{| x*02° | TTY, GDT, CRT, or Carousel 15/30 on a | 
| | current loop interface. { 


{ x*o4u* | Carousel 300 on PASLA/PALM interface, | 
| | strapped for FDX and highest haud rate. | 


} x*QO5°* {| TTY, GDT, CRT, or Carousel 15/30 on { 
| | micro I/O bus adapter. | 


| X*00*, X*Q3° | Reserved, defaults to X*01'. | 
706" = XA EF * | { 


A AF ED EE EN AR A EE RORY ED RR werS EE Oe eh OEE ee Ee) Te GED mee “EE EE ee AU ee Gem ere SF Ge GONE Wee eet Gm 8 em Ge ey Oe ine ON wh NY ere AR OED aint) Gi eer a ae 
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Sy Oe ER ree ey ery er eee SO at gy ue “eR ery GRE DE eee Ge ED ee Se cee SS eh ee ee eae les hE tet als ee 


{| LIST DEVICE 


| IDENTIFIER | EXPLANATION 

| SSS sms ron ener eres test SS sss s sesso rete sss seers ssresess | 
ie aie 6 es {| CRT or GDT on PASLA/PALM interface, 

{ ] strapped for FDX and highest baud rate. 

| cee Oe na ee A ew AO cg Se mm tO ne ee ee a are ee eae ee es et aS ae es OY a nt a DO ee Oe ae ee 
j; xX*O2" | TTY, GDT, CRT, or Carousel 15/30 on a 

| | current loop interface. 

{ a aa eka ee a a ae sd ace a ae Se a eds ea nee ee “ems Sa ate mas ta an se, esc, a Ss Gale Seta 
} x'o3° | Line Printer. 

| ise cess ete Sib” asa evs ions esos Sv‘ eai/Gbb) simian sess‘ “aguas “iis ease“ Sl> Sy; Ou Saw. ime (We "asec “ean "obs token a Sales 
} x*ou* | Carousel 3900 on PASLA/PALM interface, 

| | strapped for FDX and highest baud rate. 
Np bace eee econ ee vie pera ninig say ean rg a 
{ xX" O5* | TTY, GDT, CRT, or Carousel 15/30 on 

| | micro I/O bus adapter. 

| a ee a eee een ne eS en en Penne en enn eine ke ees 
ie Sa 829 {| Feserved, defaults to X‘O1'. 


| X*06* 


Ce a i ete En ie De eli alent etalon a 


X°FFS* 


| 
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APPENDIX B 
OPTION/COMMAND INPUT STRUCTURE 


An asterisk (*) is output to the list device to indicate that the 
program is awaiting an option input. Any option may be typed in 
from the console input device, followed by a space and the 
desired hexadecimal value; an exception is the TEST option that 
accepts arguments separated by commase A Carriage Return (CR) is 
issued to terminate every option/command input. An invalid 
option/command or value will cause a (?) followed by a Carriage 
Return (CR), Line Feed (LF), and an asterisk (*) to occur. 
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APPENDIX C 
OPTIONS TABLE 


A em ON OE RF AY A OL GA SE SEED ORR EY SED ED ED ED GD em eS ee ame el eam a Ges cube tems re erm ene “Be ter mee im arm ae me ue ein ecm ene cme ame edi ate tem Se een ee ery SR Sin Re tee ee ae oe 


OPTION | DEFAULT VALUE | DESCRIPTION 


Coenen tte Anna DremnAhesDininaadl ane oseadeansd cach toe Ainnredinanalhcassdionaeliprondinandierentaaclh condie-callend adh radinar Emaedieeedll cardie-~celhaqnparead meadieradtreaditcoaliinandpnantiecetpwed-anadcantiethninedinnametbintd-aelpeasdp-ecatbraedrenTteandiess aienaliinetivndeinamiandetep loratadine’ 


Selects the test(s) to be 
executed. 


Note 3). 


| | 
| | 
| | 
LOOP { 0 | Determines the number of times 
| |! each test selected is to he 
| | executed. Value ranges from 
| {| X'O0001° to X'FFFF*. 
| | 
NOMSG [| 0 | Determines whether or not all 
| | messages will be printed. 
| | 
| |} 0 = all messages 
| | 1 = error messages 
| |} 2 = no messages (see Note 1) 
i, | 
CONTIN | O | Enables the user to run ail selec- 
| | ted tests continuously. 
| | 
| | O = normal execution 
| | 1 = continuous execution 
| | 
RUN | | Enter this command to exacute 
{ J this test. 
| | 
CON | } Enter this command to gives control 
{ | to the microcode console coutine. 
| 
MODE {| Oo | Determines when the tests selected 
| | are to be executed if errors occur 
| |} in ‘INITS routine (see listing). 
| | 
| j O = halt 
{ } 1 = execute 
| | 
TALLY | 0 | Determines whether or not errors 
| | are tallied. 
| | 
| | O = not tallied 
| {| 1 = tally (see Note 2) 
| [ 
WSCLO | 800 | Selects the WCS low address (see 
| | | 
| | 
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mem ee en ee eee ee ees ee ee em we ame ee, ecm SS eR ce ness ee ae em Se cece SE ee ce ee ee ne SES cee ee 


—— ne 9 am cme cer OR) ey De ee em ee ee er we eet ee ee eee eee ee ee ee ee ee ee em ee Se ee a ees a cme tie ee sey OP un ele tm em oe 


{ OPTION | DEFAULT VALUE | DESCRIPTION | 


| 7 

1 SCSHI | 1000 | Selects the WCS high address (see | 
{ | | Note 3). | 
| | | 
|} FWORD | AOAOAOAO { Selects the fullword pattern ured | 
| | | | 


in Test 8. 


NOTE 


1. The program executes selected tests 
continuously but does not print any 
messages nor accept any command. : 
Control is given to microcode console 
suprort when the total number of 
times the execution of tests or the 3 
total error exceeds X'7FFF‘. The 
program prints ‘TOTALS and ‘TOTERR‘S 
upon execution at program start 
address X‘AOO‘S. 


2e Errors tallied are printed only after 
executing all selected tests or on 
depressing the break key. No error 
messages are printed during execution 
of tests. The error message would be 
in the form: AM, 


FRROR TINN 
TOTAL COUNT = XXXX 


Where: 


XXXX is the total number of times 
the error occurred. 


3. WCSLO option is not available for 
Test 6 (defaulted to X'800'). The 32 
WCS address used in the tests are 
from WCSLO up to but excluding WCSHI. 
The WCSLO and WCSHI addresses should 
be specified to lie on a 25€-word 
boundary. 
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APPENDIX D 


EXPECTED PRINTOUT 


MODEL 3220 WCS TEST 06-232R00 


*RUN 


WCS DETECTED 
TEST EXECUTION STARTED 


TEST 00 
NO ERROR 
TEST 01 
NO ERROR 
JEoe 02 
NO ERROR 
TEST 03 
NO ERROR 
TEST O04 
NO ERROR 
TEST O5 
NO ERROR 
TEST 06 
NO ERROR 
TEST 09 
NO ERROR 


END OF TEST - 


*TEST 7 
wRIEN 


WCS DETECTED 
TEST EXECUTION STARTED 
BREAK TERMINATION 


ATEST -26 
*RUN 


WCS DETECTED 
TEST EXECUTION STARTED 
BREAK TERMINATION 


x 
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(USER DEPRESSES BRK KEY) 


(USER DEPRESSES BRK KEY) 


APPENDIX E 
ERROR TABLE 


re cee ee eee ae re re came OUD wee ree aes ee ne me eee mee em me me cates ees ee ee em ee Ot en ee eee ee cee ee Sere ce es ee eee ee mate eee ci eee aes cen aes Ow te ree 


The following message is also printed: 


ADDRESS EXPECTED OBSERVED 
XXXXXX YYYYYYYY 22222227 


Wheres 


XXXXXX is the ¥#CS locatior. 

YYYYYYYY is the expected data 
patterne 

ZZZZZ2Z22Z2Z is the actual data read. 


|} TEST [| ERROR | 
| NUMBER |{ NUMBER | EXPLANATION 
| a oe coe Sa ae Soe ace: ane aon ads oon woe eee Sine Seer aon aa A ae Oe a en a ae a Ok oe one Se ane ome cose ater aims coe anes SS GaN ae coe eee On eee ee me SO MO eet OO ae ae mene eM eee ene ae carne 
j ** { oc | BDCS instruction was not illegal in 
| | {| the protect mode. 
| | | 
| } 01 {| BDCS instruction was illegal in both 
| | { supervisor and protect modes. 
| | | 
| { C2 { BDCS instruction did not branch to 
| | {| proper WCS location. 
| | | 
| | 03 | RDCS instruction was not illeaal. in 
| | | protect mode. 
| [ 
| | O04 | RDCS instruction was illegal in both 
| | } the supervisor and protect modes. 
| | I 
| | 05 }] RDCS count (in register 3) incorrect 
| | | the termination. 
| | 
| | Of j Not used. 
| | { 
{ {| 07 { WDCS instruction was not illega*. in 
| | | protect mode. 
| | | 
| | o8 {| WDCS instruction was illegal in both 
| { {| supervisor and protect modes. 
| { 09 | Unused R/WDCS codes not illegal in 
{ | | supervisor or protect modes. 
| | | 
| 0-5, 7 | OA | WCS data error detected. 
| { { 
| | 
| | 
| | | 
| | | 
| | | 
| | | 
| | | 
| | | 
| { | 
| | 
| | | 
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Rieter tied aati tite lien Ee Ellen tn a en nN ee ee ee ee ee 


TEST | ERROR | 
NUMBER | NUMBER | EXPLANATION 


ee ee ee awh nm Re SON en ere et ee ued ante nn ee et a eS RE ee Se OS amy ee I NE Se a ee Se Oy ee A ee en eS Ss Se oe Ne Oe GER GOR SG Ge 


Subrourine error (using ECS). 


| 
| { 
| 
{ | | | 
| | | 
|} 46 { 143 | Subroutine error (using BDCS). | 
{ { | | 
| 4 | OA |} Subroutine error (BRANCH TEST). | 
| | | | 
{ 99 } 14 | Compare errore Microregister 0 in A { 
| | | stack. | 
| | | 
} a9 ; 15 | Compare error. Microregister 0 in B | 
| | | stack. | g 
| | | | 
| Og |} 16 | Data modified in microregister 1 (A | 
{ | } stack) by writing into microregister | ; 
| { O. | 
| | | 
{ 09 {| 17 {| Data modified in microregister 1 (B { 
| | } stack) by writing into microregister | 
| [ O« | 
| | | | 
{| o9 { 18 | Data modified in microregister 2 (A | 
| { } stack) by writing into microregister | 
| | | QO. 
| | | | 
1 O09 {| 19 {| Data modified in microregister 2 (B | 
{ | | stack) by writing into microregister | = 
| { | Oe | 
| | | | 
{| 09 | 1A | Data modified in microregister 3 (A i 
{ | j} stack) by writing into microregister | 
| { [| O06 { 
| { | { 
} 09 {| 1B | Data modified in microregister 3 (B { 
| | } stack) by writing into microregister | 
| | |} C. | 
| | | 
{ o9 } 1C | Compare error. Microregister 1 in A | ; 
| | | stack. | 
| | | | 
| Og { 1D | Compare error. Microregister 1 in B | 
| | | stack. | 7 
| | | | 
{ 09 | 1F | Data modified in microregister 0 (A | 
| | | stack) by writing into microregister | 
| | | 1. | 
| | | | 
{ 99 j 1F | Data modified in microregister 0 (B | 
{ | {| stack) by writing into microregister | 
| | 1. | 
| 99 | 20 | Data modified in microregister 2 (A | 
| | |} stack) by writing into microregister 1, | 
be 06-232M95R00A15 


TEST 


09 


09 


09 


09 


09 


09 


09 


09 


09 


09 


09 


09 


O09 


09 


Ue ee TE enemy Se ene SE mn ON ete SS CRETE OE meme em cee cen ore “TU eS em ee ote Oe Ge nee SS ee re scm Genes ene ns se See cee SE Se sec see ee Ge SE Se ee ee EM ae ee ee 


| NUMBER | 


fea me pedometer ad dc ne ee ee ee at dr re pe den Re mer conden ee erence eden nape naan ieee ad 
Ne nen nn en ee 


ee EE ee meee eee Seem ctonee we Ue eee Se aos Gee Se ce ee coe ce me cee ee SR ee ene eee qn SR See cee ee eee) Se eee ee ee CCE coum coe cee eee ce CE 


ERROR 
NUMBER 


20 


21 


22 


2€ 


27 


2& 


29 


ok 


2B 


2C 


2D 
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EXPLANATION 


Data modified in microregister 2 (A 
stack) by writing into microregister 
‘ls 


Data modified in microregister 2? (B 
stack) by writing into microregister 
Ie 


Data modified in microregister 3 (A 
stack) by writing into microregister 
Te 


Data modified in microregister 3 (B 


stack) by writing into microregister > 


1. 


Compare error. Microregister 2 in A 
stacke 


Compare error. Microregister 2? in B 
stack.e 


Data modified in microregister 0 (A 
stack) by writing into microregister 
2s 


Data modified in microregister 0 (Rf 
stack) by writing into microregister 
Qe 


Data modified in microregister 1 (A 
stack) by writing into microregister 
2e 


Data modified in microregister 1 (B 
stack) by writing into microregister 
Qe 


Data modified in microregister 3 (A 
stack) by writing into microregister 
De 


Data modified in microregister 3 (B 
stack) by writing into microregister 
2 


Compare error. Microregister 3 in A 
stack. 


Compare errore Microregister 3 in RB 
stacke 


Lee 


A me ED ee ORE mre HER a ERLISTE mM eK EE EEE ce ee ee ee ee cee oem oem cet ge oe 


ee we te er am SO ee tele teh ee Oe eS ey en wee ee en Ee ee cone ee eee ee eee ee wee em ere en ee ce ee ee em ee wee OR) mE ree ee en ee et 


TEST [| EPROR | 


NUMBER | NUMBER | EXPLANATION 

09 2F Data modified in microregister 0 (A 
Stack) by writing into microregister 
Se 

09 2F Data modified in microregister 0 (B 
stack) by writing into microregister 
3 

09 30 Data modified in microregister 1 (A 
stack) by writing into microregister 
3 

09 31 Data modified in microregister 1 (B 
stack) by writing into microregister 
3s 

99 32 Data modified in microregister 2 (A 
stack) by writing into microregister 
oo 

O09 33 Data modified in microregister 2 (B 


stack) by writing into microregister 
bee 


The following message is also printed 
in Test 9. 


TEST PATTERN ERROR BITS 
XXXXXXXKX 0800800 
Where: 


XXXXXXXX is the data pattern 
used for testing at the 
time of failure. 


0800800 in this example indi- 
cates bits 4 and 16 of 
the register caused the 
errcvore 


ree nah Re ce ee ete et ey ee ee ee ee ee ee ee eee ee ee ee eee ee ee ee ee ee ee ee ee ee ees ee ee ee ee ee eee ee ee ee 


Cn I enn ee ee ee 
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IKRECOVERABLE FRRORS 


{ FRROP | 

|} NUMBER | EXPLANATION 

|TF1 | Arithmetic faule interrupts 
: TTF2 | Tllegal instruction interrupt. 

| TTF3 | Yachine malfunction interrupte 

: TTFU | Unsolicited immediate interrupt. 

| TTES 3 Memory access controller interrupte 
| TTr6 ! Interrupt into wrong register. 

| el bal os : Data format fault. 
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MODEL 3220 


( oS 


WRITEAPLE CONTROL STORE TEST 06-232M91R00A13 PAGE 4 68311357 05/10/82 


PROG= WCS.32290 ASSEMBLED BY CAL/32 03-338R00-00 


x* 


we 


+ 


+ + te ee eH He eH FO OH OO OH OOO 


RET2 EQU 4 
ZERO EQU 4 
ONE EQU 5 
TTY EQU 6 
DAT EQU 7 
TAB EQU 8 
STAT EQu g 
FOUR EQU 10 
FLAG EQU 10 


06232R00 
$.3220 PROG MODEL 3220 WRITEABLE CONTROL STORE TEST 06-232N91R00413 
CROSS 
TARGT 32 
NORX3 
WIDTH 120 


MODEL 3220 WRITEARLE CONTROL STCRE TEST 06-232R00 
COPYRIGHT PERKIN ELMER INC., MARCH 1979 
PROGRAM USES SERIES 32 INSTRUCTION SET 


PURPOSE OF TEST: 
THIS PROGRAM TESTS WRITFABLE CONTROL STORES AS A DATA 
STORE AND AS INSTRUCTION STORE. 


ASSUMPTIONS: 
IT IS ASSUMED THAT THE FOLLOWING TEST HAVE BEEN RUN WITHONT 
DETECTING AN ERROR, PRIOR TO LOADING THIS TEST: 
06-228 MODEL 3220 PROCESSOR TEST PART 1 
06-229 MODEL 3220 PROCESSOR TEST PART 2 
NORMAL TESTING: 
THE PROGRAM REQUIRES A MODEL 3220 PROCESSOR WITH 
128K BYTES OF MEMCRY,OPTIONS AND RUN COMMANDS ARE TO 
BE ENTERED VIA A CONSOLE DEVICE. 
THIS TEST USES THE ETPE ROYPO 


A TELETYPE MUST EF ATTACHED AT THE DEVICE ADDRESS X'O2°.IF THE 
TELETYPE IS ATTACHED AT A DIFFERENT ADDRESS,CHANCE LOCATICNS 
CLIFADR AND CLIFADR+2 TO THE ACTUAL TELETYPE ADDSESSES. IF CR™ 

ON PASLA (FDX ONLY) IS TO BE USED FOR I/O, CHANG LOCATION *IO° - 

TO X°0101°.PASLA ADDPYSSES FOR CRT ARE ASSUMED TC SE ¥'10"C(RFAD 
SIDE) AND X°11°CWRITE SIDE). IF THE PASLA IS CONNECTED AT DIFFERENT 
CHANGE LOCATIONS PASLADR (FOR READ -SIDE) & PASLADR+2 (WRITE SIDE) 
TO THE ACTUAL PASLA ADDRESSES.SIMILAR ACTION SHOULD BF TAKEN IF 

A CAROUSEL 300 OR MICRO I/O BUS IS USED . 


THE 06-232M17R00 TAPE IS AN ABSOLUTE TAPE WITH FRONT END BOOT 
LOADER. 


Snes 


MODEL 3220 WRITEABLE CONTROL STGRE TEST C6-232N91RO00A13 FAGE 2 Gé:11357 o5/10/82 


0000 00O0B 54 CHAR FOU (11 
9000 000C 55 POINT EQU 12 
0000 O00D 56 ADRS FOU 13 
( 0000 GOOE 7 TST EQU 14 
58 * 
59 + 
‘ 60 * 
614 * ETRE FILE ** STADT#* 
62 * NEW REVISIONS OF FOPE SHOULD 2E INSESTED AFTER THIS LINE 
63 * TO BE COMPATIELE WITH TEF TEST PROGRAM. 
64 * THE LAST LINE IS INDICATE 8Y THE CARD * ETPE FILE **END** 
65 * CONDITIONAL ASSEMBLY TRRAMETERS TO FOLLOW 
( 665 * 
67 * IN ALL CASES, C TOUALS DELETE 
68 * 4 EQUALS INCLUDE 
; 69 * 
70 * EXCEPT FOR STIMER, 0 EQUALS DELETED 
71 * 1 EQUALS INCLUDE SOFTWARE 
72 * 2 EQUALS INCLUDE HARDWARE 
73 * 2 EQUALS INCLUDE BOTH 
7h * TIMEP LASEL IS "TIMFR" FCR SOFTWARE AND 
75 * HARDWARE, FXCEDT WHEN BOTH ARE INCLYDED. 
76 * THEN LABELS ARE "STIVER" AND “HTIMER™ 
7 * RESPECTIVELY. 
{ 72 * 
79 «* LABEL "CLOCK" ¥UST BE FOQUAL TO THE LFC ADDRESS. 
80 * 
i 81 . 
82 * 
83 * 
0000 0000 84 SRS5BIN  EQU 0 
0000 0000 85 SDECTAB FQU 0 
9000 0000 86 SDECHEX EQU 0 
( 0000 0000 87 SDECASC EOU 0 
0000 0000 88 SKBINT EQU 0 
0000 0001. 89 SCLOCK EQU 1 
¢ 9000 0000 90 SDISPLAY EQU 0 
0000 0090 91 20 FOU 0 
0000 0001 92 1 FOU 1 
4 0000 0002 93 82 EQU 2 
0000 0003 94 33 EQU 3 
0000 0004 95 R4 FOU 4 
t 0000 0005 96 BS FOU 5 
0000 0006 97 R6 EQU 6 
0000 0007 98 R7 FOU 7 
{ 9000 0008 99 8 FOU 8 
0000 0009 100 29 FOU 9 
0000 000A 101 10 FOU 10 
0000 0008 102 R114 FOU 11 
0000 000c 103 212 FOU 12 
0000 000D 104 R13 FOU 13 
¢ 0000 000F 105 RW FOU 14 
9000 OOOE 106 RET rou 014 
0000 OOOF 107 R15 FQU 15 . 
t 0000 000F 108 LINK EQU 15 
{ 


‘oe 


MODEL 3220 

000000:I 

000080 2421 
000082 2303 
000084 0000 
000088 C810 
00008C C830 
000090 4030 
000094 2731 
000096 C860 
OOO09A D340 
OOOOSE DE4O 
QO00A2 9D45 
OOOOA4 20914 
OOO0CA6 SB45 
O0000A8 0855 
OOOOAA 2234 
OOOOAC D251 
0000B0 D351 
O000B4 0765 
OCOO0BE6 9481 
0000B8 9828 
OOOOBA 9D45 
OOOOBC 2091 
OOOOBE 9B45 
0000C0 C110 
0000C4 9486 
0000C6 9828 
0000C8 8800 
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2AE8 
OAO0O 
ZA5A 
0022 
OOFF 


0078 
0079 


0000 
9000 


OOAC 


=000088 


=000001 


=O00C0A2 


=000001 


te eH 


BOCT 


uN 


LEADER 


LOAD 


BOOTLOADER WITH CHKSUM 


X*80" 
R2,1 
BOOT 
ACRSAVE) 


3 


31,ORIGIN1 


R3,LNZB+1 
R3,X°22° 
R3,1 
R6,X*OOFF® 
R4,X‘*78° 
Ru,X°79° 
R4,R5 
9,1 
RG,R5 
R5,85 
LEADER 
RS,0(R1) 
R5,0(R1) 
R6,R5 
R8,R1 
R2,R8 
R4&,R5 
9,1. 
R4&,RS5 
R1,LOAD 
R8,R6 
R2,R8 
8800 
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REGISTEP SAVE POINTER(32-BIT M/C) 
R1 = ADR( FIRST BYTE OF TEST PROG ) 
R3 = ADE( LAST NON-ZERO BYTE ) 
REGISTER SAVE POINTER (16-BIT M/C) 


R6 = CHKXSUM BYTE = X'MN* 
INPUT DEV ADR 


DU,BSY 


IGNORE LEADER 

STORE 1ST NON-ZERO € SUBSEQUENT RYTE 
RELOAD DATA 8YTE TO 

GENERATE CHKSU¥ 

DISPLAY MEMORY ADDRFSS 

DU,BSY 

LOAD TILL LAST BYTE 


FINAL CHKSU™ 
GO TO MICROCODE CONSOLE ROUTINE 


a 
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EXZC - ETPE RO4 CW/CONDITIONAL ASSEMBLY) 


143 SQUEZ 
Q000CA 144 ORS X*AOQ' 
OO0AD0 4300 OA60 145 ORIGIN1 B START14 START HERE FOR 32-=BIT PPOCESSOR 
OOCAGC 146 IFZ ADC-2 
147 GRIGIN2 5 START START EERE FOR 16-BIT PROCESSOR 
148 ORPTICGIN3Z B® STARTS SPECIAL 32-BIT PROCESSOR STAPT 
149 OFIGING R START4 SPECIAL 16-BIT PROC®SSOR STREET 
159 ELSE 
OOOAOK 4300 OATE 151 OFIGIN2 8 START3 SPECIAL START(S) - 32 RIT BETCESSA®R 
COOADS 4300 OATE 152 B STABT3 
OOCAOC 4390 OATE 153 B STAP™3 
154 ENDC 
155 * 
156 Bem rn n tee ene nn nnn ee 
157 * TEST CONSTANTS * ' 
158 * : 
OCOA10 39161 159 Id DC x¥°0101'° I/O DEVICE(S) IDENTIFIER 
O000A12 9010 160 PASLADR DC X*0010° PALSA/PALM READ ADDRESS 
COOA14 9011 161 BC X'O011' PASLA/SPALM WRITE ANDDRES#HS 
OCOATS 9002 162 CLIFADR DC x*'eoo2s CURRENT LOOP INTERFACE PEAD 3DDRESS 
QOOA1& 0002 163 DC X*O0o2"* CURRENT LOOP INTERFACE WPITE ADDRESS 
OOOATA 0062 164 LPADRE DC X*QOQF2° DUMEY FOR LINE PRINTER 
OOOAIC 0062 165 DC X*0062° WRITE ADDRESS 
OOOAIE 0010 166 C300ABR DC x*0010° CAROUSEL/PASLA READ ADDRESS 
OOOA20 0011 167 bec X*°0011" CAROUSEL/PASLA WRITF ADDRESS 
OCOA22 00CO 168 SMICROBUS DC X¥*'s0cc® MICROBUS 2EAD ANDRESS 
QO0A24 9OCO 169 DC X*°O00CO* MICROBUS WRITE ADDRESS 
OCOR26 00900 170 DCX 0 PROVISION FOR SPECIAL DEVICE (READ) 
OOOCA282 9000 171 DCX 0 WRITE ADDRESS 
V2. ® 
173 * I90 = 0101 FOR CRT ON PASLA 
174 * 0202 FOR TELETYPE, CARCUSEL 15/30 
175 =«* XX03 FOR LINE PRINTER 
176 * O404 FOR CAROUSFL 300 
WT o* 0505 FOR NICROBUS 
Lie» 
VIQ Bem nn nn mn nn nnn nn nnn nnn nn +--+ 
180 * ETPE IO COMMANDS 
181 * 
OOOAZA 0000 182 CONRADR DCX 0 CONSOLE DEVICE RFAD ADDRESS 
OOGOA2T 0000 183 CONWADR DCX 0 CONSOLE DEVICE WRITF ADDRESS 
184 = 
OCOA2E 0000 185 CONRD DCX 0 CONSOLE READ/WRITE COMMANDS 
0000 OA2F 186 CONWRT EQU CONRD+1 
QOOR30 9000 187 CON2ND DCX 0 
0000 0A31 188 CORENRD EQUI CON2ZND+1 
OO0A32 0000 189 CORCMD DCX 0 DUMMY HW AS POINTER 
OOOA34 BIA3 190 CRTRD DCX B1A3 FOR CRT 
000236 F871 191 CRT2ND DCX F871 
000438 A4&D8 192 CLIFRD DCX A&DSs = CURRENT LOOP INTERFACE 
OOOGA3& C064 193 CLIF2ND DCX 0068 
OOOA3C 0080 194 LPWRT DCX 0089 = LINE PRINTER 


OOCOA3ZE 0000 195 BCX 0 DUMMY FOR LP 


Sd 


Ww 
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EXEC - ETPE RO& 


GOOA4O A1A3 
OOOAK2 F061 
OOOAM4 8202 
OCOA4E 0392 
OOOANS8 90 

OOOAYS 33 

OOOASA 00 

OOOA4B 00 

OOGASC 23 

OOOA4D 00 

OOOAYE 

OOCA4GE 0140 
000A50 0000 
SO00A52 TOFO 
OOOA54 30F0 
OOOASE 0000 
O00A58 0000 
OOOA5A 0000 
COOAS5C 0000 
GOOASE 0000 
OOOA60 24170 
O00K62 4010 0930 
OOCAG66 4820 CAS4 
OOOA6A 4020 5032 
OOOAGA 

OOOAG6GE C820 2260 
OOOAT72 4010 C234 
OOOA7T6 4020 2236 
OOOA7TA 0co00 
OOOATC 2209 
*OOOATE 220F 
OOOATE 

OGOA8O D310 9410 
OOOAS4 D320 0211 
OOOA88 2436 
OOOAS8A 0513 
OOOA8C 2182 
OODA8E 2411 


(W/CONDITIONAL ASSEMBLY) 


196 CARRD 
197 CAR2ND 
198 MREADC 
199 

200 * 


2602 CONRG2S 
203 CRIRQ2S 


205 CARRQ2S 


209 TIME 


211 PSW 
212 PSW2 


220 START1 


228 START2 


232 ST 


=OGGATIC 236 


=00C?760 238 STARTS 


=000490 247 


R2,1 


R1,PSW2 


R2,START 
P1,X°3u° 
22,X°36° 
0 


* 


START1 
ADC-2 
START2 


R1,10 
R2,10+1 
R3,6 
R1,83 
I0.0K1 
R1,1 


5 
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* CAROUSEL 300 


= MICROBUS 


3 
3 
© 
A 
td 
zy 
ie] 
o) 
ix 
iw] 


CCNSOLE REQUES 
FOR CFT 

* DUMMY BYTE FOR CLI 

= DUMMY SYTE FOR LP 

* CARCUSEL 300 

. DUMMY BYTE FOR MICROEBUS 
(ALIGN ON HW BOUNDPY) 


CONSTANT FOR 1 NS DELAYCX'C8*~¥ON70) 


RESERVED 

PSW USED IN PROGRA¥ 
PSW USED IN EXEC 
RESERVED 

RESEPVED 

RESEFVED 

RESERVED 

RESERVED 


DISABLE INT AT PROCESSOR LEVEL 


SELECT REG SET 15 


SET FODEL 32 PROCESSCR FLAG 


T MOD 32 PROCESSOR FLAG 


IT INT NEW PSW LOC 


TAKE AX ILLEGAL INSTRUCTIO 


HALT IF II Net TAKEN 


‘a 


INSERT SPECIAL POUTINE HFRE 


INSERT SPECIAL POUTINE HERE 


IDENTIFIER CAN EE 142734445 


BRANCH IF K3 IDENTIFIER OK 


INT 


OTHERWISE FORCE IT TO BE PASLA 


wa 


eee 


oe 


”~ 


MODEL 


QOOAS0 
*OOQOOA92 
OOOA94L 
OOOASE 
OOOASA 
OOOAQSE 
OOOAA2 
OOOAA6 
*QOOAAS8 
OOOAAA 
OCOAAC 
OOOABRO 


QOOABY 
OOOCAB8 
OOOABA 
QOOABC 
OOOAB3E 
OOOAC2 
OOOACE 
OOOACA 
OOOACE 
OOOAD2 
OOOADE 
OOOADA 
OOOADE 
QOOAEO 
OOOAEY 
OOOAES 
OQOOAEC 
OOOAEE 
OOOAFO 
OOOAF2 
OOOAF4 
OOOAFS 


OOOAFA 
OOOAFE 
000B00 
OOOBO4 
000B08 
OOOBOC 
000810 
O00B14 
000B18 
OOOBIC 
000B20 


OOOB24 
000328 
O00B2C 


3220 


ETPE 
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ROY 


(W/CCNDITIONAL ASSEMBLY) 


=OCCASE 


=OCOARG 


=O002F4 


249 
2590 
2574 
252 
253 
254 
255 
256 


I0.CK2 


I0.0K3 


I0.GK4 


* 


* FORCE PRINT 


* 


FORPRT 


LH 
STH 
LIs 


F2,R3 

T0.O0K2 

R2,1 

21,16 

n2,10+1 

26 ,-CCNRQ2S(R2) 
26,PASFLG2 

RS, RE 

TC0.0K3 


S 82,2 


zO,IC(R2) 
FO,CONCED(R2) 


LINK,SETKB 
R1,RO 

R1,2 

21,2 
23,IC(R1) 
B3,CONRADR 
73,10+2(R1) 
R2,CONWADR 
%2,CONCMD(R1) 
R2,CONRD 
P2,CCNCMD+2(°21) 
PR2-COK2ND 
21,R0 


R4O,CONRQ2S(R1) ~ 


R4,CONROQZS 
E4,PASFLG 
R4,RB 
I0.0K4 
R2,R2 
R3,R2 
R3,CONRD 
R3,R15 


LINK,LCORE 
RO,0 
BO,WASDU 
PO,WASDU1 
LINK,CRLF 
RS,TITLE 
R15,PRINT 
R15,DUSAVE 
R15,2 

KEEP 10 
GPTIN 


Ri4,DUSAVE 
E14,DUSAVE1 
R14,R14 


SAME TEST FOR LIST DEVICE 


REESTASLISH VALUES 


SET PASLA FLAG (LIST DEVICE) 


SKIP IF NOT PASLA 


ISSUE 2ND COMMAND (TO LIST DEVICH*** 
ESTABLISH KEYBOARD DEVIC® (& IOSAVE) 
(R1) = 1,2-4,5 ; (RO = KBIDENT) 
(21)=4,8,15,20 

SET UP CONSOLE DEVICE READ ADDRESS 
SET UP COKSOLE WRITE ADDRESS 

SET UP R/*¥ COMMANDS 

2ND CMD; ENABLE READ CMD 

CONSOLE REQUEST TO SEND 

SET PASLA FLAG (CONSOLF) 

SKIP 28D OC IF NOT PASLA DEVICE 
ISSUE 2ND COMMAND (TO CONSOLE) 

PUT CCNSOLE IN READ WODE 

READ A DUMMY CHARACTER (SET BUSY) 
SET UP LOX CORE 


RESET ‘DEVICE UNAVAILABLE" FLAGS 


PRINT TEST PROGRAM TITLE 
LOAD NOMSG VALUE 
DU?? 


LOAD VALUE 
SAVE 


MODEL 3220 


WRITEABLE COXTROL 


EXEC - ETPE RO 


OO0OB2E 
000532 
OOOB34 
000B38 


OOOB3A 
O00B3C 
OOOB4LO 
OOOB4Y 
OOOB4S 
OOOBHC 
900B50 
OOO0BS4& 
000858 
000B5C 
000BE0 
00O0B62 
000R66 
OOOB6A 
OOOB6E 


AAACN 
vuvery 


OOOB74 
000B78 
00O0B7C 
000B80 
OOOBS4 
000B88 
OOOBBA 
OOOBS8E 
O00R92 
OOOB9Y 
000B98 
*O0O00B9C 
OOOBSE 
OOOBA2 
OOOBA6 
OOOPRAA 
OOOBAC 
OOOBBO 
QOOBB2 
*OOOBBY 
OOOBB6 
OOOBBA 
O000BBC 
O00BCO 
OO00BCS 
0008C8 
OOORCC 
OOOBDO 
*OOO0BD4 
OOOBDE6 


KOEO 
24E0 
4050 
030F 


1654 


17C0 


STORE TEST 06-232§91R00A13 PAGE 


(W/CONDITIONAL ASSEMBLY) 


=O000ES8 


=QOORAE 


=OQ00PP2 


=00028C8& 


=COQOQERC 


=O0CEFO 


302 
303 


* 


* KEYBOARD 


* 


OPTIN2 


OPTIN 


OPTIN1 


RDCHR 
RDCHARO 
RDCHE2 
RDCHAR1 


RDCHR3 


RDCHR1 


7 
STH R1i4,ISITERE 
LIs R1i4,0 
STH R14,DUSAVE 
BR LINK 

INPUT ROUTINE 
LIS LINK,O 
STu LINK, BRKFLG 
BAL LINK, FORPRT 
LHI RS,BRKMSG 
BAL LINK, PRINT 
BAL LINK,RESPRT 
EAL LINK, FORPRT 
BAL LIXK,CRLF 
BAL LINK,RESPRT 
La R2,PSW2 
EPSR R1,R2 
BAL LINK, SETKB 
1B R4&,AMSG 
PAL LINK,OUTCHR 
LCS R4,1 
BAL LINK,OUTCHP 
LHI R12,QUESTN 
LEI RO0,X¥'2020° 
STH RO,OPTBUF 
STH RO,OPTBUF+2 
STH RO ,-OPTBUF+4 
Lis R1,0 
BAL R15,GETCHR 
CLHI R4,X*60" 
SiS RDCHARO 
SAI R4Y,xX*20° 
CLYIT R4,X'23° 
ENE RDCHR2 
FAL LINK,RESPRT 
E OPTIN 
CLEI R4,X'SF* 
BES RDCHAR1 
CLYUI Ru,x*os* 
3NES RDCHR1 
sis R1,1 
Fas | RDCHR3 
EAL LINK,RESPRT 
ER R12 
LHI R0,%*20° 
S28 RO,OPTBUF(R1) 
BE RDCHR 
CLHI R4,X*OD* 
BE LOOKUP 
CLHI R4&,X*20° 
BE LOOKUP 
CLHI 21,6 


08:11:57 


05/10/82 


FORCE PRINT 


FORCE PRINT 
RETURN 


CLEAR FLAG 
FORCE PRINT 


RESTORE 
FORCE PRINT 


RESTORE 


NO INT. REG SET 15 
ESTABLISH CONSOLE 

OUTPUT AN * TO INDICATE 
COMMAND MODE ESTABLISHED 
X*FF* 


SET UF 812 FOR ERR ROUTINE 
BLANK ODT COMMAND BUFFER 
WHICH WILL CONTAIN OPTION 
NAME 


CLEAR CPTBUF INDEX 
GET A CHAR IN R4 
UPPER CASE ALPHA ? 
BRANCH I¥ NO. 

CONVEFT TO LOWER CASE 
IS IT # ? 

NO 

RESTCRE 


LEFT APROW, UNDFRLINE, OR DELETE?? 


BACK SPACE ? 
NO, PPANCH 
YES, DECREMENT INDFY 


RESTOR? 
UNDEPFLOW FXIT 


IS IT CR ? 

YES, TRY MATCH 
SPACE?? 

TRY LOOKUP 

7 CHARACTERS INPUT ? 
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EXEC - ETPE ROK CW/CCNDITIONAL ASSEMBLY) 


OOCEDA 038C 355 ENLR R12 IF YES, ERROR 
OOOBDC D241 2ADC 256 St R4,OCFTBUF(R1) STORE CURRENT BYTE 
000BEO 2611 357 AIS -R4,1 BUMP BUFFER INDEX 
000BE2 4300 ORBR 252 2 RDCHE READ NEXT CHARACTER 
359 «* 
259 * RESTORE PRIVT PARAMETERS 
361 * 
OOORE6 48EO 17C4 362 RESPRT LE 214,DUSAVE1 LOAD VALUE 
OOOBEA 4OEO 17C0 363 STE 214, DUSAVE RESTORE 
OOO0BEE 030F 344 BR LINK RETURN 
365 *---------------------------------- 
366 * OPTION “ATCE ROUTINE 
1a 7 x 
OOORFO W1FG OBES 258 LOOKUP BAL  LINK,RESPRT RESTORE 
OOOBFY C810 17C8 2K3 LHI &41,CPT LOAD ADDRESS OF OPTION TABLE 
OOORFS 2430 370 LOOK1 LIS 23,0 CLEA? BUFFER INDFX 
OOOBFA 0861 371 LDAR 6,21 SET OPTION WORD INDEX 
OOOBFC 4856 9090 272 LOOK2 LY R5,0(R6) 
000C00 021C 273 BMR 512 IF MINUS, THEN NC MATCH = ERROR 
000C02 4553 2ADC 274 CLH &5,OPTBUF(R3) COMPARE TO OPTBUF HW 
*000C06 2333 =C0OCOC 375 RE LOCK3 
00cc08 261C 376 AIS -R1,12 
*O00COA 2209 =O00BF8 277 P LOOK1 
o00coc 2632 278 LOOK3 AIS 23,2 TRY NEXT HW 
OO00COE 2662 373 AIS 26,2 
000C10 C530 0606 386 CLHI 23,6 3 MATCHING ZW FOUND ? 
*000C14 208C =OCOBFC 381 BL LOOK2 
262 * 
000C16 C510 184C 383 CLHI R1,RUN RUN COMMAND ? 
OOOC1A 4330 ODEO 234 BE RUNIT 
O00CI1E C51G 1840 285 CLHI 81,OPTION OPTION CMD ? 
000c22 4230 OD3A 385 BNE LOOKS NO, LOOK FURTHER 
387 *----------------------------- 
388 * TO PROCESS INPUT COMMAND ‘OPTION' 
339 * 
000C26 41FO OB2u 339 BAL LINK,FCRPRT FORCE PRINT 
OOO0C2A C540 OSOD 3914 CLHI R4,x*OD* CR ? 
*000C2E 2333 =0c0ca4 232 BE OPTEXX YES, BRANCH 
000C30 4IEO 11418 393 BAL B14,CPTVAL NO, GET OPTION DEV. PRINTOUT NIM. 
000C34 C560 0006 394 CLHI 6,6 IS DEVICE NUMBER VALID ? 
000C38 2386 =000C44 395 BNLS OPTEXX NO, BRANCH 
*O00C3A 244A 396 LHI RY, X"0A" YES, LOAD AN LF CHARACTER 
000C3C 41FO 1280 357 BAL LINK,OUTCHR WRITE IT TO THE CONSOLE 
900C40 D260 2AE3 398 STB  R6,IOSAVE+1 CHANGE THE LIST DEVICE 
o00cay 4820 1848 399 OPTEXX LH R2,OPTION+8 CHECK FOR SPECIAL ROUTINE 
000c4s 0232 490 BNZR 2 LINK TO ROUTINE 
Ot * 
OOOCHA c830 17¢8 &22 OPTRTN LHI R3,TEST RETURN HERE 
OOOCHE C8E0 OCDE 403 LHI R414,OPTCNDS 
000C52 41FO 1258 a4 BAL LINK,CRLF 
000C56 2420 805 OPTCMD LIS 2,0 RESET COUNTER 
000c58 D342 17C8 406 OPTCND1 LB Pu,QPT(R2 TO PRINT TEST 


O00CS5C 41FO 1289 207 BAL LINK,OUTCHR 


wea? 


( 


FODEL 3220 WRITEABLE CONTROL STORE TEST 06-232N91R00A13 PAGE 3 


EXEC - ETPE ROG 


000C60 2621 
000C62 £520 0006 
*000C66 2087 
0G0C68 C840 0020 
O00CEC 4TFO 1280 
000C70 2450 
000C72 4050 15BC 
000C76 4823 90006 
OOOCTA 2440 
oooc7c 4040 2AE4 
000cs80 9121 
000C82 4380 OCBY 
000C86E 4040 2AE4 
OOOC8A 4800 16BC 
*OOOC8E 2335 
000C90 C840 002C 
o000CS4 &1FO 1280 
000C98 4OFO 16BC 
000C9C 0855 
*OOOC9E 2335 
OCOCAO C840 0031 
OOOCA4 41FO 1280 
OOOCAS8 4840 2AE4 
OOOCAC D344 170C 
000CBO 41FO 1280 
OOOCBYa 4840 2AE4 
COOCB8 2641 
OOOCBA 4040 2AE4 
OOOCBE C540 0010 
000CC2 4280 0C80 
O00CC5 9855 
Q00CC8 023E 
OOOCCA 4823 0008 
QOOCCE 2451 
OOOCDO 4300 OCTA 
OO0OCDY 44FO 1258 
000CD8 24614 
OOOCDA C820 17D 
OOOCDE 2436 
OO00CEO D342 0000 
JOOCEY4 41FO 1280 
OOOCES8 2621 
OOOCEA 2731 
OOO0CEC 2026 
OOOCEE C840 0020 
OO00CF2 41FO 1280 
OOOCF6 8352 0000 
OOOCFA 2404 
OOOCFC 44FO 117C 
000D00 D300 0A10 


CW/CCNDITIONAL ASSEMBLY) 


=000C58& 410 


416 OPTCHD2 
418 OPTCHD3 
420 OPTCMD4 


=000C98 422 


425 OPTCHDS5 


=Q00CA8 427 


430 OPTCHD6 


433 OPTCMD7 


438 OPTCMD71 


AIS R2,1 

CLHI 82,6 

BL OPTCND 1 

LHI R4,c* ° 

BAL LINK,OUTCHS 
LIS R5,0 

STH R5,FIRST 

LH R2,6(R3) 
LIS R4,0 

STH R4&,TEMP 
SLHLS R2,1 

BNC OPTCMD7 

STH R&, TEMP 

LH RO,FIRST 

BZ OPTCHDS 

LHI R4,C*,* 

BAL LINK ,OUTCH®? 
STH LINK,FIRST 
LDAR R5,R5 

BZ OPTCMD6 

LHI R4,C*1* 

BAL LINK,OUTCHE 
LH R&,TEMP 

LB R4,HEXTARC(C RS) 
BAL LINK ,OUTCH? 
LH R4,TEMP 

AIS Ra,1 

STH R4,TEMP 
CLHI R4,16 

BL OPTCED3 
LDAR F5,R5 

BNZR 214 

LH R2,8(R3) 
LIS R5,1 

R OPTCMD2 


44H * TO OUTPUT 


445 * 
446 OPTCHDS 


HES OPTCHD9 
450 OPTCMD10 


=Q00CEO 454 


BAL 
LIS 
LHI 


OTHER OPTICN NASES 


LIKK,CRLF 
R6,1 
R2,OPT+12 
R3,6 
P4&,OCR2) 
LINK ,OUTCHE 
R2,1 

R3,1 
OPTCED1IC 
R4,c* § 
LINK ,OUTCEHER 
R5,0(B2) 
RO,4& 
LINK,R5SHEX 
RO,T0 
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OUTPUT 1 SPACE 
TO PRINT SELECTED TEST NUMBERS 


FIRST TEST WORD 
START WITH TEST 6 


OPTION VALUE FOUND. 
IS IT FIRST ? 


NO, OUTPUT COMMA 
TEST VALUE FROM SECOND 


NO 
YES,OUTPUT ‘1° 


mm 
x 


RESTORE Ru 
CONVERT 
OUTPUT O-F 
RESTORE 


INCREMENT TEST # 


DONE ? 
SECOND TEST WORD 
R5 = 1 FOR SECOND TEST HW 


VALUES 


SET LINE COUNTE? 
R2 POINTS TO THE WAM? 
OUTPUT OPTION NAME CHAP 


€ CHARACTERS OUTPUT ? 
KO,LOCP 


OUTPUT ONE SPACE 
R5 = CPTION VALUE 


WRITE OPTION VALUE I® HEX (4% DIGITS) 


nd 


ww 


MODEL 3220 
ExaC ETPE 
GO0ODO4 2701 
*000006 213D 
ooCcDes 2661 
QOODOA 75690 
QOOTOE 2189 
000D10 2460 
000D12 41F0 
000516 274D 
000D18 4330 
ocobic 2643 
OOODIE 2036 
000D20 41TFO 
o00b24 41F9 
000D28 2626 
OOODZA C520 
OOOD2E 4280 
000D32 41FO 
000036 4300 
OOOD3A c510 
OO0OD3E 4330 
O00D42 £510 
O00D46 4330 
OOODSA 274D 
ooaDac 033C 
OOOD4E 41E0 
000D52 274D 
Oo0D54 923C 
oOoorsé6 4BE1 
*OOODS5A 2332 
OOO0DSC J1FE 
OOODS5E 4061 
O00L62 4860 
0090566 4060 
OOUD6A 4300 
OOOD6E C560 
O00D72 038C 
OO0OD74 030F 
OOOT76 C360 
OOODTA 033F 
OOOD7C 03¢C 
OOODTE C560 
000D82 O28F 
o00Ds4 030C 
O0ODS86 £560 


J 


WRITEABLE CONTROL STORE TEST O06-232NS1ROOA13 FEAGE 10 


RO 


0014 


1308 
OB5C 
1258 
1358 
1828 
OCDF 
OBEE 
0350 
17C8 
OD8E 


1858 
18E0 


1118 


0008 


0006 
17F2 
17C6 
0850 


0003 


FFFE 


0400 


COOF 


(W/CONDITIONAL ASSEMBLY) 


461 

=000TD20 462 

463 

464 

=000D20 465 

466 
467 OPTCKD114 

468 

469 

479 

=000D12 474 
472 CETCMD12 

473 

474 

475 

u76 

477 

478 


RO,1 
OPTCHD12 
R6,1 

R6,20 
OPTCED12 
R6,0 

LINK, GETCH? 
R4,13 
OPTIN4 

R4,3 
OPTCND11 
LINK,CRLF 
LINK, TSTBRK 
R2,6 
R2,0PTEND2 
OPTCKEDS 


LINK,RESPRT 


OPTIN 


08:14: 


YJQ 0 #--- n= ------------------------ 


480 Loeku 
481 
482 


=COODSF 493 


496 LOCKS 


501 ZERONE2 


504 * 
505 ZERONE 


R1,TEST 
TESTOP 
R1,CGN 
STOP.TST 


R14, 0PTVAL 
R4,13 

R12 
R14,8(R1) 
LOOKS 
R1i5,R814 


R6,6(R1) 
R6,NONSG+6 
R6,DUSAVE 
OPTIK 


RE,3 
R12 
R15 


R6,X°FFFES 
R15 
R12 


R6,X*400" 
R15 
R12 


R6,15 


COMMANDS CTHER THAN * 


57 05/10/82 


CONSOLE = CRT ? 
BRANCH: NC. 

INCREMENT LINE COUNTER. 
PAGE FULL ? 

NO 

INITIALIZE LINE COUN™ 


CR ? 
TO ACCEPT NEXT COMMAND 
LF ? 
IF YES, PRINT NEYT PAGE 


EXIT IF *BREAK' PRESSED. 


ALL PRINTING OPTIONS DONE ? 
NO,LOOP FOR NEXT ONE 
RESTORE 

TO ACCEPT NEXT COMMAED 


*TEST' CPTION ? 


CONSOLE? 
YES, BRANCH 


TEST‘, ‘OPTIONS. 


OPT FOLLOWED BY CR ? 
YES, ERROR 

SET OPTION VALUE IN P56 
TERMINATED BY CR ? 

IF NO, BRANCH 


GET OPTION CHECK ROUTINE ADDPESS 


LINK OPTION CHECK RCUTINE 
RETURN HERE 

STORE OPTION ¥YALUE 

LOAD VALUE 

SAVE TO FLAG 

TO ACCEDT NEXT COMMAND 


MAXIMUM+1 
ERROR RETURN 
OKAY 


IGNORE LSB 
OKAY 
ERROR RETURN 


(R6) = 10 BIT DEVICE ADDRESS 
RETURN TO LOOKS 


CR6) = INTERRUPT LEVEL HEX DIGIT 


iw 


MODEL 3220 


EXEC - ETPE ROW 


OOOD8A 
O90D8C 
OOOD8C 


OOODBE 
o00DS90 
000D92 
000D96 
QOOD9A 
OOODSE 
OOODA2 


OOODA6 
OOODAA 
OOODAC 
OOODAE 
OOO0DB2 
OOODBA 
OOODB6 
OOODBA 
OOODBC 
O00DCO 
*000DC2 
OOODCH 


028F 
930C 


274D 
2138 
4800 
4000 
4800 
4000 
4300 


4850 
2479 
2480 
41E0 
0556 
028C 
C560 
2385 
&4E0 
0673 
2306 
CB60 


1B58 
17CE 
1B5A 
17D0 
OB50 


1B5C 


1118 


0010 


71154 


0010 


WRITEABLE CONTROL STORE TEST 06-232N97RO0A13 PAGE 11 


CW/CONDITIONAL ASSEMBLY) 


=O0ODA6 


=000D0C4 


=O00DCE 


BLR R15 
BR R12 
IFZ SDECHEX~1 


we ee we a ee oe we ee ee we wwe eo we eo 


08:11:57 05/10/82 


RETURN TO LOOKS 


* TO CHECK THAT OPTION EKXTRY IN R6 IS IN DECIMAL DIGITS. 
TO CONVERT DECIMAL ENTRY IN R6 TC HEX VALUE AND 


* 
* 
* 


D 


D 


D 


D 


D 


* 


T 


* 


T 


T 


T 


STORE IT a2 OC(R5). 


ECHEX STH RO,RSAVE 
LIs RO,0 
LIS R1,0 
LIS R2,0 


ECLP1 LDAR &3,R6 
SRAL R3,0(R2) 
BZ DECHEX1 


NHI R3,15 
CLHI R3,10 
BNLR R12 


LDA R7,-DECTAB(F1) 


ECLP2 sIs R3,1 

BY DECLP3 
AAR RO,R7 
B DECLP2 


ECLP3 AIS 22,4 
AIS R1,ADC 


ECHEX1 STH RO,O(RS) 
LM RO,RSAVE 
BR LINK 
ENDC 


ee ee em we we ww we a ww ww wwe ee ee ee 


TEST CPTION PROCESS ROUTINE 


ESTOP SIs B4,13 
BNZS TSTOP1 
LH RO,DEFTESTS 
STH RO,TEST+6 
LH RO,DEFTESTS+2 
STH RO,TEST+8 
a OPTIN 

STOP 1 LH R5,KAXTST 
LIS R7,0 
LIS 88,0 

STOP2 BAL R14,OPTVAL 
CLAR R5,R6 
BLR R12 
CLHI R6,16 


BNLS TSTOP3 

BAL R14,UNARY 

OAR R7,23 

R TSTOPa 
STOP3 SHI F6,16 


ACCUMULATOR 
TABLE INDEX 
SHIFT COUNTER 
COPY INPUT VALUE 


TO RETURN 

VALID DECIMAL DICIT ? 
IF NOT, ERROR. 
1410¢00e2e,10900 

ADD IN CURRENT VALUE 


INCREMENT SHIFTE®? 
INCREMENT POINTER 


STORE HEX OPTION VALUE 


RETURN 


‘TESTS FOLLOWED ?¥ (CR) ? 


YES, SET TEST OFTION TO 
FIRST TEST WORD 

ALL DEFAULT TESTS IN PROGRA¥ 
SECOND TEST WORD 

TO ACCEPT NEXT COMMAND 


TEST BIT ACCUMULATORS 

GET OPTION VALUE IN R26 
ERROR: INVALID TEST NUMBEF 
R6 < 16 ? 

NO 

GET UNARY OPERAYD IN R3 
SET CURRENT BIT 


R6 = O-F 


oat 


oo, 


MODSL 3220 


WRITEABLE CORTROL STORE 


ExXsC - ETPE ROG 


o00nCEe 
oooDCC 
OOODCE 
oocDpo 
o00pnDu 
Q00DD8 
Oo0ORDC 


OOODED 
OOODEZ 
OOODES 
OOODER 
OOODEE 
OOODES 
QOODF4 
OOODFE 
OOODFA 
QOODFE 
*O00FO0 
OOOEG2 
*OOOEO4 
OOOEDE 
OO0EOS8 
OOGEOC 
*OOOEOE 
QOOE16 
*Q00EI2 
OOOE14 
OOOE15 
OOOE1A 
OOOFITE 
000R22 
D00F 26 
OOOE2A 


OOOE2E 
OOOE30 
OOOE34 
QOOE3& 
00053C 
QOOELS 
OOGRa4 
OOOEuS 
OQOOEUC 


OCOFEO 
Q00E52 


41E0 
0683 
274D 
4230 


V1EG 


901C 
TEES 
0810 
2AE2 
1256 
18E56 


TEST 06-232HNS1RO00A13 PAGE 12 


(W/CONDITIONAL ASSEMBLY) 


=OO0CE1A 


=OQOCEOC 


n 
— 
Q 


No OW o sd OU & Wr) wr Ow & 


ran oo 0 UT « 
ad 


wow uw O an op a ao db Oo Ww uw Mm 


Q 
8) 
iy 


TSTOPY SIS 


STH R7,TEST+E 
STH R8,TEST+8 


B OPTIN 
Be wee ww we ee we ew ew eee ee 
& 
RUNIT LIS LINK,0 
STH  LINK,BP¥FLG 
ST LINK ,PPTELG 
BAL  LINK,CPIF 
LIS B15, 
St R15,WASDM 


STH R15,8eASD71 
LIS RO,15 


LH R1,TEST+8& 
KEEP 1 SRLS R1,1 

BC FOUND1 

SIS RO,1 

BNM KEEP 1 

LIS RO,15 

LH R1,TEST+4 
KEEP2 SRLS R1,1 

BC FOUND? 

SIS RO,1 

BNE KEEP2 

BR R12 


FOUND1 AHI 
FOUND2 STH RO,SELTST 


STH RO,IOSAVE 
BAL LINK,CRLIF 
BAL LINK,INIT 


*® 
* 
* RESET TEST PARAMETERS 
* 
I 


NITRET LIS RO,0 
STH RO, ISITERR 
STH RO, TCTAL 
STH RO,WASDE 
LHI R1,C'09O"' 
STH R1,H4TESTHO 
STH R1,ETESTNO 
STH R1,ERENC 
BAL LINK, LCORE 


START SELECTION FROX TEST 0 


te + % 


KEEP3 LIs RO,0 
STY RO,BIESTNO 


08:41:57 


05/19/82 


SET CURRENT 31T 
TERKINATED BY CR ? 


STORE VALID SELECTED TESTS 


TO ACCEPT NEXT COMMAND 


LEAR FLAG 
LEAR FLAG 


Tal 
J 
oe 
uv 


RESET DY FLAGS 


TO FIND HIGHE 
CHECK SECOND 


RO = F-0 

TRY NEXT DIGIT 

INITIALIZE AGAIN 

CHECK FIRST TEST HW 

RO = F-O0 = TEST # 

LOOP 

TEST NOT SELECTED 

ADJUST TEST # FOR SECOND HW 
HIGHEST SELECTED TEST NUMBER 


RESTORE USER'S I/C CHOICE 


NO. 


LINK USER INITIALIZATION ROUTINE 


RETURN HERE FROM USER'S INIT ROUTINE 


RESET ERROR FLAG 
RESET TOTAL 
RESET WASDU 


RESET THESE FLAGS TO C'00° 


SET UP LOW CORE 


RESET BINARY TEST NUMBER 


‘wa! 


( 


MODEL 3220 WRITEARLE CONTROL STORE TEST 06-232491R00A13 PAGE 13 


EXEC 


OOOES6 


OOOESA 
QOOESE 
OO0E60 
OOCE62 
OOOE66 
*QOOOE6A 
OQOOE6C 
*QO00E7O 
*QOOE72 
OOOETY 
*QO0E78 
OOOETA 
*QOOO0ETC 
OOOE7TE 
GCOOE&82 
OOORB4 
OOOE86 
QOOESA 
OOOESC 
OOOE9O 
OOOES4 
000ES8 
OOOEIC 
OOOEAO 
OOOEAY 
OOOFA8 
OOQOEAA 
QOOEAE 
OOOEB2 
OOOERE6 
OOOEBS 
OOGEBC 
QOOERE 
OOOEC2 


OOOECY 
OOOECB 
QOOECA 
OOOECE 
QOOEDO 
OOOEDS 
OOOEDS 
QOOOEDA 
QOOEDE 
OOOEE2 
*OO0EE6 


ETPE ROY 


4000 16F6 


4820 16F6 
2408 
910C 
cco2 0000 
C520 0010 
2185 
4400 17D0 
2137 
2304 
4400 17CE 
2133 
2621 
220F 
4020 16F2 
0812 
2621 
4020 16F6 
2402 
C820 1722 
41FO 14A4 
4820 1722 
4020 172C 
441FO 1358 
c8s0 171C 
41FO 11CC 
2400 
4000 16E6 
4000 16F4 
4810 OA52 
9501 
4820 16F2 
4122 
5812 1260 
0301 


4810 OA5& 


(W/CCNDITIONAL ASSEMBLY) 


620 STH 
627 * 
622 * TO FIND THE 
623 * 
§24 KEEPS Li 
625 KEEP41 LIs 
626 SLHLS 
627 SRHL 
628 CLHI 
=OCOET74 629 BL 
430 NH 
=O00E7E §31 BNZ 
=OOOF7A 632 B 
— 633 KEEP42 NH 
=COCE7E 634 BNZ 
635 KXEEP&3 AIS 
=OCOE5E 636 B 
637 KEEPS5 STH 
538 LDAR 
639 AIS 
6490 STH 
644 LIS 
642 LHI 
643 RAL 
644 LH 
645 STH 
646 BAL 
647 LHI 
648 BAL 
649 LIS 
65¢ STH 
651 STH 
652 KEEP6 LE 
653 EPSR 
654 LH 
655 SLLS 
656 LDA 
657 BR 
659 * 
660 * TEST MCDULE 
661 * 
662 TSTEND LE 
663 EPSR 
664 LH 
665 AIS 
666 STH 
667 CLH 
=OQO0EE2 668 BNLS 
669 PAL 
679 B 


671 KEEP? LH 


RO,NEXTST 


08:11:57 05/10/82 


RESET NEXT TEST # 


NEXT SELECTED TEST. 


R2,NEXTST 
RO,8 

RO,12 
RO,O0(R2) 
R2,X°10° 
KEEP42 

RO, TEST+8 
KEEPS 
KEEP43 

RO, TEST+6 
KEEP5 

R2,1 
KEEP41 
R2,BTESTNO 
R1,R2 

R2,1 
R2,NEXTST 
RO,2 
R2,MTESTNO 
LINK,HEXASC 
R2,MTESTNO 
R2,ETESTNO 
LINK, TSTBRK 
R5,TSTMSG 
LINK, PRINT 
20,0 
kO,NOERR 
RO,COUNT 
R1,PSW 
RO,R1 
R2,BTESTNO 
R2,LADC 
R1,TFSTS(R2) 
R14 


END ROUTINE 


R1,PSW2 
RO,R1 
RO,CCUNT 
RO,1 
RO,COUNT 
RO, LCOP+6 
KEEP? 
LINK, TSTBRK 
KEEP6 
RO,NOERR 
KEEP71 


GET WEXT TEST # 


PO = X"'8900° 
PO = NEXT TEST BIT 
NEXT TEST < 16 


LOOK AT TEST HW 2 
LOCK AT TEST HW 1 


LOOP FOR NE¥T TEST # 
CURRENT TEST # 
R1 = TEST # IN BINARY 


STORE TEST # IN ASCIT 
TEST EREAK 


PRINT ‘TEST NN‘ 


RESET ERROR FLAG 
RESE? COUNT 
ENABLE INTFRRUPTS 


INCREMENT COUNT 


If COUNT > LOCP, 

GO TC NEXT TEST MODULE 
IF BREAK GO TO OPTIN 
OTHERWISE, KEPEAT SAME 
LOCK @ ERROR FLAG 


a 


IN ASCII ® MTESTNO 


ETESTNO 


TEST 


ae 


MODEL 3220 


EXEC - ETPE 
OOOEES C850 
OOOEEC 4TFO 
OGOEFO 4810 
OOCEFG 4510 
OOOEFS 4280 
OOOEFC 4200 
OCOFOO 4810 
Oo0roy 95914 
OOOFO4 
OOO0F06 41FO 
OOCFOA 4230 
GCOOFOr 4810 
O00F12 4230 
OOOF16 S1FO 
QOOF1A 4810 
OOOF1TE 42390 
O00F22 41F0 
O00F26 4810 

*OOOF2A 2333 
OOOF2C A 1FO 
OOOF30 C850 
OOOF34 4050 
O00F38 &1F0O 
D00F3C 24FO 
OOOF3E 4OFO 
OO0F42 4300 
QOOFU6 4010 
OOOFGA 4810 
OOOFYE 2611 
O000F50 4010 
OOOF54 4200 
OOOFSs4 
OOOFS8 4879 
OOOFSC C510 

*QO0F60 238A 
QO00FE2 4800 
OOOF66 4500 
QOOP6A 4220 
OOOF6E 4300 


WRITEABLE CONTROL STORE TEST 06-232#497800413 PAGE 14 


ROY 


1742 
41CC 
16F2 
1658 
OESA 


QEFC 
OA54 


13F4 
OF 46 
16EC 
OFT74 
1358 
17E6 
OFUA 
141A 
180A 


2754 
1792 
16E4 
11CC 


1654 
0B50 


T6EA 
16EE 


16EE 
0000 


15EE 
TFFF 


16F2 
16E8 
ORSA 
QE50 


CW/CONDITIONAL ASSEMBLY) 


=OCCF30 


=O00F74 


LHI 25 ,NOERKSG 
BAL LINK, PRINT 


LH R1,3TESTNO 
CLH 21,SELTST 
BL KEEPS 


THE SELECTED TESTS HAVE Now 


EPSP 29,?P1 
IFG SDISPLAY-1 
PAL LINK,DISPLAY 


dC ZC(TOTAL) ,-Z(TOTERR) 
ENDC 

BAL LINK, TSTDOU 

BNZ FEEDS 

LH R1,8ASDU1 


BNZ KEEPQ2 

BAL LINK, TSTBRK 
LH R1,CONTIN+6 
BNZ A38CRT2 

BAL LINK,SETKB 
LH Ri,TALLY+6 
BZ EOTE*™ 

BAL LINK, ERRLISTC 
LHI R5,EQTMSG 
STH R5,ISITERR 
BAL LINK,PRINT. 
LIS P15,0 

STH R15,ISITERR 
BR OPTIN 


08:11:57 


05/10/82 


PRINT “NO ERROR" 

GET TEST # 

IS THE LAST SELECTED TEST DONE ? 
RO, GC SELECT NEXT TEST 


2ON 


COME HEPE TO ABCRT TFST SFOQUFNCE. 


SISPLAY TOTAL € TOTERS 


RETURN WITH R1 = DU BIT 
IF DU, DISPLAY TOTAL 

WAS IT EVER ? 

YES, PRINT TOTAL, TOTERR 


IF CONTIN = 1, 

INCREMENT & GO T9 TEST 0 

KB DEVICE = LIST DEVICE 

IS TALLY OPTION SET eA ES 
NO,BPANCH CRE 


GO & PRINT TALLY TABLE 


(FORCE PRINTING) 
‘END OF TEST* 


CRESET PRINTING FLAG) 


* ROUTINE INCREMENTS,DISPLAYS & CHECKS ‘'TOTAL‘ 


* 
KEEPS 
ABOPRT2 


KEEPS1 


STH R1,WASDY 


AIS R1,1 
STH 21,TOTAL 
NOP 


IFZ SDISPLAY-1 
BAL LINK, DISPLAY 
bc Z(TOTAL),Z(TOTERR) 


Ld R1,TOTAL 
CLHI &1,X*7FFF* 
BNL KEEP92 

LH 2O,BTESTNO 
CLE RO,SELTST 


SET *WASDU* FLAG 
INCREMENT TOTAL 


DISPLAY TCTAL & TOTERR 


TOTAL < MAX RETAINABLE ? 


20 = CURRENT TEST # 
IS IT LAST TEST ? 


NO, GO TO NEXT TEST 


tasat 


SO TO TEST 0 


( _ pF * *%' 


MODEL 3220 WRITEABLE CONTROL STORE TEST 06-232M91RO0A13 PAGE 15 08:11:57 05/10/82 


EXEC - ETPE ROG (H/CGNDITICGNAL ASSEMBLY) 


0000 OF72 726 HALTS EQU = 
OOOFT72 8800 727 DCX 88006 BREAK POINT, GO TO MICROCODE 
728 * CONSOLF ROUTINE 
729 =* 
OO0OF74 IFO 13F4 730 KEEP92 BAL LINK, TSTDU SEE IF LIST DEV IS ON 
OOOF78 2033 =O00F72Z 731 BNZS HALTS NO, LOOP 
OOOFTA 2400 732 KEEP10 LIs FO,0 
OGGFTC 4000 16EA 733 STH RO, WASDU RESET FLAG 
OOOF80 41FO OB24 734 BAL LINK, FORPRT FORCE PRINT 
OOOF84 4H1FO 1258 735 BAL LINK,CRLF 
OOOF88 C850 4732 736 Lui R5,TOTMSS 
OOOF8C 4050 1654 737 STH R5,ISITERR 
OOOF90 41YFO 11CC 738 BAL LINK, PRINT PRINT ‘TOTAL TOTERR*S 
OOOFO4 2404 739 Lis RO,4 TO PRINT 4 HEX DIGITS 
OO00OF96 4850 16EE 740 LE R5,TOTAL 
OOOF9A 44FO 117C 741 BAL LINK, RSHEX PRINT TOTAL IN HEX 
OOOFSE 2434 742 LIs F3,48 
OOOFAO C840 0020 743 LHI R4,C* ° SPACE 
OOOFAY &1FO 1280 744 KEEP101 BAL LINK,OUTCHR OUTPIT IT 
OOOFA8 2731. 745 sits R3,1 ; 
*OOOFAA 2023 =OCOFAYS 746 BP KEEP 101 4 TIKES 
OOOFAC 2404 747 LIs RO,4 TO PRINT 4 HEX DIGITS 
OOOFAE 4850 16F0 748 La R5,TOTERR 
OOOFB2 41FO 117C TA9 PAL LINK, RSHEX PRINT TOTERR IN HEX 
OOOFB6 &41FO OBE6 750 BAL LINK,RESPRT RESTORE. 
OOOFBA 4300 OB50 751 B OPTIN SO TO BESINNING 
OOOFBA 752 IFaZ SDISPLAY-1 
753 KREKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
754 * 
755 DISPLAY LIS RO,1 DISPLAY PANEL ADDRESS 
756 oc R0,INCP INCREMENTAL KODE 
757 Ls R1,2(LINK) SET 2ND PARAMETER ADDRESS 
758 La R1,0(R1) GET DATA 
7593 EXBR R1,R1 
760 WER RO,R1 WRITE DATA 
761 Li R1,O(LINK) GET 1ST FARABETER ADDRESS 
762 2S R1,0(81) GET DATA 
763 EZBR 21,81 
764 WER RO,R1 WRITE CATA TO D1,D2 
765 es RO,NCRE NORMAL “ODE 
766 re 4(C LINK) RETURN 
767 = * 
768 ENDC 
769 KEK KEKKEKEKAEKKKKKEKEKKKKKEKKKKRKEKKKKKKK 
770 = =«* 
771 * ERROR POCUTINES (OVERPISS NOMSG OPTION) 
772 = «=* 
OOOFBE DOOO 2BBO 773° ERR Scoot RO,ERRSAVE STORE REGISTERS 
OOOFC2 #120 1048 774 EAL R2,ERRCOM RETURN IF LIST DeVICF IS ON 
OOOFC6 H1E0 107C 775 PAL RET,ERR1 PRINT *ERROR TINN’ 
OOOFCA 2400 776 %ERRCOM2 LIS RO,0 
QOOFCC 4000 1654 777 STH RO,ISITERR RESET ERROR FLAS 
OOOFDO 4820 OA52 778 LH R2,PSW 


MODEL 


EXEC 


QOOFD4 
OOOFD6 
OOOFDA 
OOOFDC 
OOOFEO 
QOOFEY 
OOOFES8 
OOOFEC 
OOOFFO 
OOOFF4 
OOOFFS8 
OOOFFC 
001000 
001004 
001008 
00100C 
001010 
001014 
001018 
00101C 
001020 
001024 
001028 
00102C 
001030 
001034 
001638 
00103C 
001040 
001044 


001048 
00104C 
9071050 
001052 
001056 
001058 
00195C 
001060 
001064 


001066 
001068 
00106C 
001070 
001074 
001078 


3220 WRITEABLE CONTROL STORE TEST 05-222€91R00A13 PAGE 16 08:14:57 05/16/82 
ETPE ROY CW/CONDITIONAL ASSEMBLY) 
9502 7783 EPSR RO,R2 
D100 2B80 780 L¥ RO,ERRSAVE RESTORE REGISTERS 
030F 784 ER LINK RETURN TO TEST 
DINO 2BBO 782 ERRD ST RO,ERRSAVE STCRE REGISTERS 
4120 1048 783 BAL R2,ERRCOM RETURN IF LIST DEVICE TS ON 
84EO0 107C 7e4g BAL RET,ERR14 PRINT "ERROR TINN* 
K1EQ 1086 785 PAL RET, ERRD1 PRINT "DEY DDD!* 
4300 OFCA 785 2 ERRCCOM2 
DOGO 2BB0 787 =ERRS ST¥ RO,ERRSAVE STORE REGISTERS 
#120 1048 788 SAL R2,EPRCCM EFETUYRKN IF LIST DEVICE IS oN 
41EO 107C 789 BAL RET,ERR1 PRINT "ERROR TTNN' 
41=£0 1098 790 BAL RET,ERRS1 PRINT ‘STA SS° 
4300 OFCA 791 B ERRCOM2 
DO0O0 2BBO 792 ezRRDS STM RO,ERRSAVE STOPE REGISTERS 
4120 1048 793 BAL R2,=ERRCOM¥ RETURN IF LIST DEVICE IS ON 
41E0 107C 794 BAL RET,ERR1 PRINT *ERROR TINN' 
41EO0 10B6 795 EAL RET,ORRDS1 DRINT ‘DEV DDD STA SS! 
4300 OFCA 796 BR ERRCOM2 
D090 2BRO0 797 ERRL ST¥ RO,ERRSAVE STORE RESISTERS 
4HOFO 16CE 798 STH R15,O0L0C STORE ERROR LOC TO PRINT 
4120 1048 799 BAL R2,EERRCOM RETURN IF LIST DEVICE IS ON 
41EO0 107C 800 BAL RET,ERR1 PRINT ‘ERROR TINN' 
41E0 10DC 201 BAL RET, ERRL1 PRINT ‘LOC LLLL* 
4300 OFCA 802 B ERRCOK2 
D000 2EBB0 803 ERPALL STH RO,ERRSAVE STORE REGISTERS 
4120 1048 804 BAL R2,ERRCOK RETURN IF LIST DEVICE IS oN 
41EO0 107C 805 PAL RET, ERR1 PRINT "ERROR TINN' 
41EO0 10B6 806 BAL RET,ERRDS1 PRINT "DEV DDD STA SS° 
41EO 10F4 807 BAL RET,ERRPL1 PRINT *PSW PPPP LOC LLLL' 
4300 OFCA 808 B ERRCOM2 
: 809 * 
810 * COMMON ERROR ROUTINE 
811 * 
5020 1708 812 ERRCOM STA R2,COMRET STORE RETURN ADDRESS 
4810 OA54 813 LH R1,PSW2 
9501 814 EPSR RO,R1 DISABLE INT. @ PROCESSOR LEVEL 
41FO 13F4 815 BAL LINK, TSTDU -GET LIST DEVICE DU BIT IN R1 
2138 =001066 816 BNZS ERRCOM14 BRANCH If OFF-LINE 
4020 16E4 817 STH R2,ISITERR SET FRROR FLAG 
4020 16E6 818 STH R2,NCERR 
5820 1708 8193 LDA R2,CONRET 
0302 820 BR R2 GO, PRINT ERROR MESSAGE 
821 * 
4810 16F0 822 ERRCOMN1 LH R1,TOTERR LIST DEVICE IS OFF 
2611 823 AIS R1,1 
4010 16F0 824 STH R1,TOTERR INCREMENT TOTERR 
C510 7FFF 825 CLHI R1,X*7FFF* TOTERR < MAX RETAINABLE ? 
4280 OF54 826 BL KEEP91 NO, ABORT CURRENT TEST & GOTO NEXT 
4300 OFT7Y 827 B KEEP92 GO PRINT TOTAL & TOTAL ERROR 
828. *S-S-—ss Sass 2485S sS6-S5- 5S 
229 * MESSAGE PRINT ROUTINES {BO NOT OYERRIDE NOMSG OPTION} 
830 * 
831 * TO PRINT ‘ERROR TTNN'* 


¢C . a ( oS 
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832 * 
00107C C850 1726 833 ERR14 LHI R5,ERRESG 
001080 41FO 11CC 834 BAL LINK,PRINT PRINT "ERROR TINN' 

835 * TT = TEST #, NN = ERROR # 
001084 O30E 836 BR RET PETURN 

837 * 

838 * TO PRINT “DEY DDD* 

; 839 * 

001086 2403 840 ERED1 LIS R0,3 SET UP DIGITS = 3 
001088 4810 16D0 841 LH R1,ERRDEV R1 = ERROR DEV # IN BINARY 
001708C £820 1760 842 LHI R2,ASCIDEV2 
001090 S1FO 11A4 843 BAL LINK, HEXASC CONVERT IT TO ASCII 
001094 C850 175C 844 LHI R5,DEVMSG2 
001098 44FO 17CC 845 PAL LINK, PRINT PRINT *DEV DD" 
001093C O30E 846 PR RET RETURN 

8u7 * 

848 * TO PRINT ‘STA SS* 

6849 * 
0071095 2402 850 ERRS% LIS R0,2 SET UP DIGITS = 2 
O0010A0 D319 16D2 851 L R1,ERRSTA R1 = ERROR STATUS 
OO10A4 C820 1758 852 LHI R2,ASCISTA 
OO10A8 41FO 17A4 853 BAL LINK ,HEXASC CONVERT IT TO ASCIT 
0010AC C850 1754 asa LHI RS,STANSG 
001089 41FO 11€C 855 PAL LINK,PRINT PRINT ‘STA SS'° 
00710B4 930E 856 BR RET RETURN 

857 * 

852 * TO PRINT ‘DEY DDD STA SS* 

859 * 
001086 2403 860 ERRDS1 LIS RO,3 SET UP DIGITS = 3 
001088 4810 16D0 861 LR R1,ERRDEV P1 = ERROR DEV # 
001CBC 2820 1750 862 LHI R2,ASCIDEV 
0010CO 41FO 17A4 863 BAL LINK HEXASC CONVERT IT TO ASCIT 
0010C& 2402 864 LIs P0,2 SET UP DIGITS = 2 
0010C6 D310 16D2 865 LB R1,ERRSTA P1 = ERROR STATUS 
O0010CA C820 1756 866 LHT R2,ASCISTA 
0010CE 41FO 117A4 867 BAL LINK ,HEXASC CONVERT IT TO ASCII 
0010D2 C850 174C 868 LHI R5,DEVESG 
0010D6 41FO 11CC 869 BAL LINK,PRINT FRINT "DEV DD STA SS'° 
OG1ODA 230E 870 BR RET PETORN 

871 * 

872 * TC PRINT *LOC LLLL' 

87:3; --* 
0010DC 2404 874 EFRL1 LIS RO,4 SET UP DIGITS = 4 
OO10DE 4810 16CE 875 LH R1,0L0C Pi= OLD LOC 
00710E2 £820 1774 876 LHI R2,ASCILCC 
OOT0ES6 S1FC 17A4 877 BAL LINK,HEXASC CONVERT IT TO ASCII 
OO10EA C850 1770 3878 LEI R5,LOCNSs 
OO10EE 41F0 17CC 879 BAL LINK, PRIXT PRINT ‘LOC LULL" 
0010F2 O3CE 880 BR RET PETURN 

881 * 

882 * T9 PRINT *PSW PPPP Loc LLLL' 

883 * 
0010Fu 2404 884 ERRFL‘ LIS RO,4 SET UF DIGITS = 4 
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OO10F6 4810 16CA 
OO10FA C820 176A 
OO10FE 41FO 11A4 
001102 4810 15CE 
001106 Ca20 1774 
OC11034 44FO 11A4 
001105 C850 1766 
001112 441FO 11CC 
001116 O30E 
001118 2460 
QO111A 41F9 1305 
QO111E 24TF 
001120 D44F 170C 
001124 2334 
001126 27F1 
001128 22174 
00112A 030Cc 
00112C 1164 
00112E O68 5F 
001130 41FOQ T30E 
001734 C540 OOSF 
001138 2334 
O00113A C540 0008 
Q0113E 2133 
001140 1064 
001742 2209 
001144 C540 O00D 
007148 0335 
OO114A C540 002C 
OO114E 4230 111E 
001152 O036E 
001154 2431 
001156 C560 OOOF 
OO115A O33E 
00115C 0A33 
00115E 2661 
*001160 2205 
001162 
001162 DG0G 2AE8 
001166 2419 
001168 2421 
OOTTEA 4630 CAE 
OO116E C119 1165 
001172 2791 
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885 
886 
887 


=0061172C 


=001120 903 


=0017146 


=001144 


=001130 


=001156 
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LH 21,0PSW R1 = OLD PSW 
LHI 82,ASCIPSW 
BAL LINK,HEXASC CONVERT I? TO ASCII 
LH 24,0L0C P1= SLD Loc 
LHI 2, ASCILOC 
BAL LINK,HEXASC CONVERT IT TO ASCII 
LHI P5,PSWMSG 
BA LINK,PRINT PRINT 'DS¥ PPPP LCC LLLL' 
BR RET RETURY 
wR REA KREHETT KEK KKKEKKE KK KRKKKKEKKKEKE 
* TO OBTAIN OPTION VALUE IN R6 (16 FITS, TARGT 15) 
* 
OPTVAL LI 26,0 INITIALIZE ACCUMULATOR 
BAL &15,GETCHR GET 2 CYAR IN 34 
OPTVALO LIS R15,15 
OPTVAL1 CLB R4,4EXTAB(R15) SCAN TABLE 
SES  OPTYAL2 WATCH 
SIS 215,1 
BNMS OPTVAL1 
ZR R12 ERROR; VALUE NOT IN “ABLE. 
OPTVAL2 SLLS 6,4 SHIFT LEFT u 
CAR 26,815 OP IN CURRENT DIGIT 
OPTVAL3 EAL &15,GETCHR SET NEYT CHAR 
CLHI R4U,X'SF* IS IT LEFT ARROW ? 
FES  GPTVAL5 YES, EPANCH 
CLHI P4&,x*O8° BACK SPACE ? 
BNES OPTVAL4 KO, BRANCH 
OPTYALS SRLS 26,4 THROW AWAY LAST HEX ENTRY 
BS OPTVAL3 
OPTVAL4 CLHYI R4,13 EXIT IF CR 
BER 214 
CLHI 24,X'2C* OR COEMA 
BNE  OPTVALO LOOP TC PROCESS 
BR R14 RETURK 
Wee ee ae oe ee ee ee ee 
* TO CONVERT (R6) FROM BINARY TO UNARY PATTERN, IN R3 
* 
UNARY LIS 83,1 INITIALIZE 
UNARY1  CLHI R6,15 DONE ? 
BER R14 RETUPN 
AAR 3,R3 NO. SHIFT R3. 
AIS 6,1 INCREMENT COUNTER 
B UNARY1 
IFZ  $CLOCK-1 
Reem e ww we ow Hew wm ww ee ww we 
* TO PROVIDE # OF MILLISECONDS DELAY SPECIFIED BY RO 
* 
TIEER ST¥  RO,RSAVE SAVE REGISTERS 
STIMER1 LIS 81,0 
Lis’ 2;4 
LH B3,TIME P3 = TIMES CONSTANT FOR 1 MS DELAY 
BXLE R1,* 
STS 20,1 
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*001174 
001176 
O0117A 


00117C 


001177C 


9017117C 
0017180 
001182 
*001184 
001186 
001188 
OO118A 
O0118E 
901192 
001196 
001198 
*00119C 
QO119E 
QO11A2 
OO1TA2 


2037 
D100 
930F 


ROY 
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=001166 


=00119F 


=001188 


938 
939 


BNZ STIMER1 
L4 RO,RSAVE 
STIMXT BR LINK 


IFZ SCLOCK-3 


* 

* 

STIMER ST 
sti 


RO,RSAVE 
MERIT LIS R1,0 
LIS R2,1 
LH R3,TIME 
BXLE R1,* 
SIS R0,1 


BNZ STIMER1 
LH RO,RSAVE 


08:11:57 
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LOOP TILL SPECIFIED DELAY 
RESTORE REGISTERS 
RETURN 


SAVE REGISTERS 
E3 = TIME CONSTANT FOR 1 KES DELAY 


LOOP TILL SPECIFIED DELAY 
RESTORE REGISTERS 


STIMXT BR LINK RETURN 
HTIMER NOP 
BR LINK 
CLOCK DCX 6C 
ENDC 
IFZ $CLOCK-2 
TIMER ROP 
BR LIKK 
CLOCK DCX $C 
ENDC 
Rew ewe ee wm ow we ee ee ewe ee ew oe 
* RSHEX PRINTS CONTENTS OF 25 IN HEX 
* PRINTS UPTC 4 DIGITS (8 DIGITS, TARGT 32) 
* 
RSHEX STM  80,RSAVE STORE REGISTERS 
LDAR R2,RO0 P2 = # OF DIGITS TO BE PRINTED 
SIS 22,1 
BE R5XB 
SLLS R2,2 R2 = 4(DIGITS-1) 
RSX LDAR R4,RS 
SRAL R4&,0(R2) 
WHI RG, 15 RU = HEX DIGIT 
LB Ru, HEXTAB(R4) 
EEYR BAL R15,OUTCHR 
Sis: B2,u 
BNM = RSX HOCr FIT ATT ypieiTs 
PSX Ly RO,RSAVE PESTORF FESISTERS 
2R LINK RETURN 
IF2  SRSBIN-1 
Rew eww ew ew me eww em ee ww meme oe ewe ewe ee 
* P5BRIN PRINTS CONTENTS CF 25 IX =ZINARY 
* FRINTS UPTO 16 DIGITS 
* 
RSBIN STN RO,RSAVE STORE REGISTERS 
LDAR &3,R0 R3 = # OP DICITS TO BE PRINTED 
LHI 1,16 


SAR R1,R3 
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991 Bx R5B2 GxIT 
992 SLHL R5,0(81) R5 = DATS TO BE PRINTED 
993 5B LHI R4,CtO* 
994 SLHLS 85,71 
995 BNC RSB1 
996 ATS R4,1 EF CARRY, FRINT 1 
997 551 BAL LINK,OUTCHE 
998 SIS R3,1 23 = # OF ==SMAINING DIGITS 
999 BE R5B3 
1000 5232 K RO,RSAVE RESTOR? FESISTERS 
1001 BR LINK RETIEN 
1002 R5B3 THI R23 &,3 C8 12 DIGITS LEFT ? 
1903 PNZ R5B4 NO 
1004 LHI R4&,c* * YES, GUTPUT CNE SPACE 
1005 BAL R15, O0UTCHR 
1906 R5B4 B R5B LOCP FOF NEYT DIGIT 
1907 ENDC 
1008 Fen enn rn rrr nen nen 
1009 * TC CONVERT HEXADECIMAL DATA IN ©41 TC ASCII CHAR € STORE @ O¢(F2) 
1010 * 
OO11A4 D000 2AEE 1011 HEXASC ST¥ RO,RSAVE STORE SFSISTERS 
OO1TA8 9830 1012 LDAR 83,0 eS. = Pals 
OO11TAA 1132 1013 SLES 83,2 
OO11AC 2734 1014 SIs R3,4 B3 = &(DIGITS)-4 
OO11AE 0844 1015 HEXASC1 LDAR R4,R1 Ry = HEY TATA 
0011B0 EC43 0000 1016 SRAL R4,0(R3) 
0011B4 C440 OOOF 1017 NHT R4,15 P4 = HEX DIGIT TO BE CONVERTED 
0011B8 D344 170C 1018 LE R4,HEXTAR(P4) 
OO11BC D242 0000 1019 STB R4,0(R2) STORE ASCII CHAR 
0011C0 2621 1020 AIS R2,1 
0011C2 2734 1021 STS R3,4 
*0011C4 2218 =OO11KE 1022 BNM HEXASC1 LOOP TILL ALL DIGITS 
0011C6 D100 2AE8 1023 LK RO, RSAVE RESTORE SESISTERS 
O011CA O30F 1024 BR LINK PETURN 
OO11CA 1025 IFZ SDECASC-1 
1026.) SaeRasss aera saa K ses cSS tr sSra 
1027 * TO CONVERT BINARY DATA IN R1 INTO DECIMAL DIGITS 
1028 * AND STQRE THEM IW ASCII a 0(82) 
1029 * 
1030 DECASC ST¥ RO,RSAVE 
1031 LDAR 83,80 COPY DIGIT COUNT 
1032 SLLS &3,LADC £ESTABLISH DECTAB INDEX. 
1033 SIs R3,ADC 
1034 SDEC1 Lis R4,0 CLEAR MCDULUIS COUNTER 
1035 LDA RS, DECTAB(R3) LOAD LAPGEST REQ. POWEP OF 10. 
1036 SDEC2 CLAR R1,R5 EXCEEDS TEST VALUE ? 
1037 BLS SDEC3 BRANCH If YES. 
1038 SAR R1,R5 DECREMENT TEST VALUE 
1039 ATS R4,1 INCREMENT MODULUS COUNTER 
1040 CLHI 84,10 VALID BECTEAL DIGIT ? 
VOaT BL SDECZ BRANCH IF YES; EL E 
7042 DiS R4,10 FORCE VALTE DIGIT, 
1043 BS SDEC2 PEPFAT SECREMENT. 


ee” 
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Nea 


10448 SDEC3 LB R4,HEXTABCR4) CONVERT MODULUS COUNT TO ASCII 
1045 STB R4,0(R2) AND STORE AT DESTINATION ¥Sa2. 
1046 AIS R2,1 INCREMENT DESTINATION POINTES 
1047 SIS R3,ADC DECREMENT DECTAB POINTEP 
1048 BN SDEC1 FALL THROUGH ON DECTAB UNDERFLOW. 
1049 LM RO,RSAVE RESTORE USER'S REGISTEPS 
1050 BR LINK RETURN. 
1051 ENDC 
1052.  SsessessrtsStssess- eK Ss ea-FH= 
1953 * TO PRINT THE ASCII MESSAGE 
1054 * 

0077CC DOOO 2AE8 1055 PPIRNT STM RO,ESAVE STORE REGISTERS 

0011D0 41FO 13F4 1056 BAL LINK, TSTDU 

00171D4 4OFO 16E2 1057 STH LINK, PRTFLG SET FLAG 

C011D8 2337 =0011E6 1058 BZ5S P1 

OOT1DA 4010 16EA 16593 STH R1,WASDU SET WASDU FLAGS 

QOT1IDE 4010 16EC 1060 STH R1,WASDU1 

OOTTE2 4300 1240 1061 B PRINTS EXIT 

OOT1E6 4820 16EA 1062 P1 LH R2,WASDO 

*OOTITEA 2338 =001200 1943 BZ P3 

OOT1TEC 2541 1064 LCS Ru,1 CHARACTER = X‘FF* 

COT1EE 4O40 16EC 1965 STH R&,WASDO1 

00141F2 2434 1066 LIS R2,48 

00114 41FO 1280 1967 P2 BAL LINK -OUTCHR 

OOTTF8 2731 1068 sIs R3,1 a 

*OOTTFA 2023 =00171F4 1069 BP P2 

OO11FC 4300 OFTA 1979 B KEEP10 PRINT TOTAL, TOTERR 

0012990 4800 17C0 1071 P3 LH PO,DUSAVE 

*001204 2335 =00120F 1972 BZ PRINT2 NO, PRINT ALL MESSACTS 

001206 4800 16E4 1073 LH RO, ISITERR 

OO120A 4330 1240 1074 BZ PRINTS NOT AN ERROR MSG. EXIT 
1075 * 

OOT2CE 2462 1076 PRINT2 LIS R6,2 LOAD "LOOK" COUNT 

001210 D345 0000 1077 PRINT2A LB RG,OC(R5) GET A FESSAGE BYTE 

001214 41FO 1280 1078 BAL LINK,OUTCHR OUTPUT IT 

001218 274D 1079 sis P4,13 cR ? 

*OO121A 2337 =001228 1030 BZ PRINT3 MSG OVER 

O00121C 2651 1081 AIS R5,1 

OO012Z1E 2761 1082 sts 26,1 DECRIMENT COUNT 

*001220 2038 =001210 1083 BNZ PRINT2A CORTINGR 

001222 47iFO 1358 1984 BAL R15,TSTBRK 

001226 220C =00120E 10865 BS PRINT2 LOOP FOR NEXT CHAR 

001228 24UA 1986 FPRINT3 LIS £4,110 LF 

00122A D310 2AE3 1087 LB R1,ITOSAVE+1 GET LIST DEV IDENTIFIE® 

00122E 2713 1088 Sis P1,3 LINE PRINTER ? 

*001230 2335 =00123A 1989 BZ PRINT3A BRANCH IF YES. 

001232 41FO 1280 1090 BAL LINK ,OUTCHR LF 

001236 2541 1091 LCs R4,1 DEL 

001238 2302 =00123C 1092 BS PRINT3B 

00123A 2441 1093 PRINT3A LIS R4,1 YES, CUTPUT X*O1" 

00123C 41FO 1280 1094 PRINT3E BAL LINK,OUTCHR TERMINAL CHARACTER 

007240 24F0O 1095 PRINTS LIS LINK,90 

0014242 4OFO 16E2 1096 STH LINK, PRTFLG CLEAR FLAG 


toe 
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001246 H1FO 4358 1997 BAL LINK,TSTBRK 
00124: 48FO 1650 1098 LH LINK, BRKFLG 
00124E 4236 OB3A 1099 BNZ OFTIN2 BREAK HAS OCCURRED 
601252 D100 ZAES 1100 LM RO,RSAVE RESTORE REGISTERS 
001256 O3CE 1101 BR LINK RETSRN 
VVOQ Bam nm rr rr er rrr en eee nner nea 
1103 * SHALL SUPPORT RCUTINES 
1104 * 
1105 * TO OUTPUT CR,LF TO LIST DEVICE 
1105 * 
001258 Docc 2AE8 1107 CRLF ST¥ RO,RSAVE STCRE REGISTERS 
001425C 2442 1108 LIS P4,13 
00125E 4S1FCG 1280 1109 BAL LINK,OUTCHR OUTPUT CR 
001262 244% 1110 LIS R4u,1C LF 
001264 D310 2AE3 4111 LB 21,ITOSAVE+1 GET LIST DEV IDENTIFIER 
001268 2713 1112 SIS R1,3 LINE PRINTER ? 
00126A 2335 =O001274 1113 BZS PRINT3A1 BRANCH IF YS. 
00126C 41FOQ 12380 1114 BAL LINK ,OUTCER LF 
901270 2541 1115 Lcs R4,1 DEL 
*001272 2302 =O00127€ 1116 B PRINT3B1 
001274 244% 1117 PRINT3A1 LIS R4,1 YES, OUTPUT K°91" 
001276 41FOQ 1280 1118 PRINT3E1 SAL LINK,OUTCHR TERMINAL CHARACTFR 
OO127A D100 2AE8 1119 LM RO,RSAVE RESTORE REGISTERS 
001275 O30F 1120 BR LINK RETURN 
V2 8 Se seSss hess SSasses esses SsSe- 
1122 * TC OUTPUT A CHARACTER TO THE LIST DEVICE 
1123 * 
001280 SOFC 16FC 1124 OUTCHR STA R815,0UT.SAV SAVE RETURN ADDRESS 
001284 D390 ZAE3 1125 LB RO, IOSAVE+1 
001288 2764 1126 sIs RO,4 
00128A 4230 12C8 1127 BNZ OUTCHR2 BRANCH IF NGT CAROUSEL 
00128E 4OCO 16FA 1128 STH RO, PAUSE 
001292 KYFO W3F4 1129 OTC.0 BAL LINK, TSTDU ON LINE ? 
001296 4230 1304 ~ 4130 BNZ OUTO NO, BRANCH 
00129A 9D01 1131 SSR RO,R1 GET CAROUSEL STATUS 
*00729C 2385 =OCT27AE 1132 BFC 8,0TC.2 BRANCH IF CHAR. IS TC BE READ 
00129E 4819 16FA 1133 OTC.1 LH R1,PAUSE PAUSED NOW ? 
0012A2 2038 =001292 1134 BNZS OTC.0 YES, LOOP 
0012A4 4390 12C8 1135 B CUTCHR2 KO, GO OUTPUT CHARACTER 
0012A8 3BO4 1136 OTC.2 RDR RO,R1 GET CAROUSEL CHARACTER 
OO12KA C410 OO7F 1137 NHI R1,X‘7F°* 
OG12AE C810 0912 1138 SHI R1,X'12° DC2 ? 
*0012B2 2124 =O012SA 1139 BNZ OTC.3 
001234 4O12 16FA 1140 STH R1,PAUSE 
0012B8 2368 =0072C8 1141 BS CUTCHR2 
0012BA 2712 1142 OTC.3 SIS R1,2 DC& ? 
0012BC 423° 1292 1143 BNZ OTC. NO, GO WAIT FOR DC2 
0012C0 HOFO 16PA 1144 STH LINK,PAUSE 
00742C4 4365 1292 1145 B OTC.0 
1146 = * 
0071208 GGi0 16FA 1147 OUTCHEZ STH R1,PAUSE RESET FLAS 
0012CC 44rd 13F4 1148 - PAL LINK, TSTDU OFF-LINE ? 
0012D0 4239 1304 1149 BNZ ouUTO BRANCH IF OFF-LINE 


“ee 


sd 
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0012D4 
0012D8 
OO12DA 
0012DE 
0012E2 
0012E6 
*OO12EA 
0012EC 
CO12EE 
*0012F2 
0012F4 
0012F8 
OO12FA 
Q0012FE 
*001300 
*001302 
001304 
001308 
90130C 


00130E 
001312 
001314 
001316 
001318 


OO131A 
00131E 
001320 
001324 
*001328 
00132A 
00132E 
001332 
001336 
001338 
06133C 


00133E 
001342 
001346 
O0134A 
OO0134E 
001350 
001354 


001358 


DO00 


1444 
1304 
d00C 
1304 
0008 
13F4 
2AE3 


OA10 


16EAR 
16FC 


1428 


OA22 


OA2E 
OA4O 


OA2C 
16D6 
0002 


OO7F 


1258 
16E4 
17A0 
11CC 


1654 
OBS5C 


2B28 


(W/CONDITIONAL ASSEMBLY) 


=0012D8 


=007304 


=0012EE 
=001308 


=000001 


=001336 


=001238 


1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 


BAL R1,SETUP 


OTC .4 SSR RO,R1 
BES 3,0UTO 
CLHI R1,12 
BE ouTO 
THI R1,8 
BNZ OTC.4 
aDR RO,P4 
OTC.5 BAL LINK, TSTDU 
BNZ OUTO 
LB R1,ITOSAVE+1 
SLHLS R1,2 


Lu RO, TO¢R1) 
SSE kO,R1 
ETC 8,O0TC.5 


B Outi 
ouTO STH R1,8ASDO 
OUT1 LDA R15,00T.SAY¥ 
PR R15 


* TO GET A CHAR FROM KEYBOARD (IN 


* 
GETCHR RAL 


LDAR R9,RO 
SSR RO, RY 
BTBS 8,1 


FDR RO,;R4 


08:11: 
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SET UF FOR OUTPUT 
WAIT FOR NOT BUSY 
BRANCH IF OFF-LINE 
PASLA OFFLINE ? 
BRANCE: YES. 

BUSY ? 

WAIT FOR NOT BUSY. 
OUTPUT DATA BYTE 


GET CCNSOLE WRITE ADDRESS 
WAIT FOR BUSY TO DROP 
SET FLAG 


RETURN AS SET UP ABOVE 


3B DEYICE IN READ MODE 
CONSOLE ADDRESS 


IF BUSY, LOOP (POSSIBLF HANG) 
READ A CHAR IN RY 


* TOG ECHO RECEIVED CHARACTERS TC CONSOLE DEVICE IN FDX MODE 


ECHO cL RO,4ICRORUS 
BE ECHO1 
LB R9O,CONRD 


CLB RS,CARRD 
BNE ECHRTN 


LE R9,CONWADR 
ss R9,SINK 
BTC Bp? 
ECHO1 HDR  =-RO,RG 
ECHRTN NEI 246,X'7E* 
BR LINK 
Wwe www ee ow we we we ww ww we we ewe wee we ee oe 
* TO OUIPUT '?* TO CONSOLE 
CUESTN BRL LINK,CRLF 
STH LINK, ISITER? 
LHI B5,QNSG 
ZAL  LINK,PRINT 
LIS RO, 0 
STH RO, ISITERR 
B OPTIN1 


IF MICROBUS, BRANCH 


CRROUSEL? 
DO NCT TCHO 
GET CCNSOLE WRITE ADDRESS 


ECHO PECEIVED BYTE 
REMOVE PARITY BIT 


RETUBRN 


TC ACCEDT COMMAND INPUT 


* IF BREAK KEY DEPRESSED, GOS TC "OPTIN' CP (BRKVECT); ELSE RETURN. 


* 


TSTBRK STN RO,-RSAVE+64 


STORE REGISTERS 


New 


Seu 


af 
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60135C 50FO 1700 1203 STA LINK,BPK.SAV SAVE RETURN ADDRESS 
001360 48FO 16E0 1204 L LINK, BRKFLG ALREADY SET?? 
001364 4230 13D6 1205 BNZ  TSTBRK3 YES,EXIT 
001368 48FO 17C0 12906 LH LINK, DUSAVE DUP? 
00136C C5FO 0002 1207 CLHI LINK,2 
001370 4330 13D6 1208 BE TSTBRK3 YES,DON'T RESPOND IF KEY DEPRESSFD 
001374 D310 2AE2 1209 LB R1,TOSAVE LOAD CONSOLE READ DEVICE 
001378 9112 1219 SLHLS 21,2 
00137A 2712 42414 SIS 1,2 
00137C 4811 0A10 1212 LH R1,19(81) 
001380 4010 16D6 1213 STH  1,SINK SAVE ADDRESS 
001384 D310 2AF2 1244 LB R1,ICSAVE RE-LOAD DEVICE IDENTIFIEP 
001388 C510 0002 1215 CLHI 21,2 TTY?? 
*00138C 233F =0013A44 1216 BE TSTBRK1 YES 
00138E C510 0005 1217 CLHI R1,5 MICRO-BUS?? 
*001392 233C =0073A3 1218 BE TSTBRK1 YES 
0012394 4810 16D6 1219 LH R1,SINK RE-LOAD CONSOLE ADDRESS 
001398 9D12 1229 SSR. oR1,R? 
00139A 4280 13D6 1221 BTC 8,TSTBRK3 NO KEY DEPRESSED = NO BREAK 
00139E 9312 1222 RDR = R1,R2 DUMMY READ 
00130 9B12 1223 RDR  -B1,22 READ KEY DEPRESSED 
0013A2 0822 1220 LR R2,R2 
*0013A4 2338 =O0C13BA 4225 RZ TSTBEK2 ZERO CHARACTER = BREAK 
9013A6 4300 13D6 1226 B TSTBRK3 NO 8PEAK 
0013AA 4810 16D6 1227 TSTBRK1 LH R1,SINK RE-LOAD CONSOLE ADDRESS 
0013AE 9D12 1228 SSR -R1,R2 
001380 C320 0020 1229 THE —22,%"20* BREAK STATUS?? 
0013Bu 4230 13E8 1236 BNZ  TSTBRKY YES, WAIT UNTIL RELEASED 
*0013B8 230F =0013DE 1231 B TSTBPK3 NO 
0013BA 48FO 16DE 1232 TSTBRK2 LH R15,BRKVECT CHECK FOR SPECIAL ROUTINE 
0013BE 4230 13E0 1233 BNZ TSTBRKS HOUSE-KEEP BEFORE SPRCIAL EXIT 
0013C2 24FF 1234 LIS  LINK,LINK 
0013C4 4OFO 16F0 1235 STH  LINK,BRKFLG SET FLAG 
0013C8 48FO 1652 1236 LH LINK, PRTFLG LOAD FLAG ‘ 
0013CC 4330 OB3A 1237 BZ OPTIN2 NOT PRINTING, EXIT 
*0013D0 2303 =001326 1238 B TSTBRK3 PSEUDC NO BREAK EXIT 
0013D2 50FO 1700 1239 TSTBRK6 STA &15,BRK.SAV SETUP FOR EXIT 
0013D6 D100 2328 1240 TSTBRK3 LM RO,RSAVE+64 RESTORE REGISTERS 
0013DA 58FO 1700 1241 LDA  LINK,BRK.SAY 
0013DE 030F 1242 BR LINK RETURN TO PROGRAM 
0013E0 2420 1243 TSTBRKS LIS  k2,0 
0013E2 4020 1650 1244 STH  R2,BRKFLG CLEAR FLAG 
*0013E6 220A =0013D2 1245 B TSTBRK6E 
0013E8 9D12 1246 TSTBRK4 SSR  R1,R2 SENSE STATUS 
0013EA C320 0020 1247 THI R2,X*20° BREAY STATUS STILL SET?? 
0013EE 2033 =0013EE 1248 BNZS TSTBRKS WAIT UNTIL RELEASED 
0013F0 4300 13BA 1249 B TSTBRK2 EXIT 
1250 *-~--------------------------- - 
1251 * SEE IF CURRENT LIST DEVICE IS OFF-LINE (R1 & CC NON-ZERO IF OFF) 
1252 * 
OO13F4 D310 2AE3 4253 TSTDU LB Ri, IOSAVE+1 GET I/O POINTER FOR LIST DEVICE 
0013F8 9112 1254 SLHLS 21,2 
0013FA 2712 1255 SIS R1,2 


MODEL 3220 WRITEARLF CONTROL STORE TEST 06-232M91RO0A13 PAGE 25 08:11:57 


EXEC - ETPE ROY 


0013FC 
001400 
001404 
001408 
*00140C 
OO0140E 
001410 
001474 
001418 


OO14G1A 
OOT41E 
001420 
001422 
001426 


001428 
00142C 
001430 
001434 
001438 
*O00T43C 
00143E 
0017442 
001442 


001444 
001448 
OOT44C 
OO144E 
001452 
001456 
OO1U5A 


4811 
4010 
4810 
C510 
2332 
2511 
4800 
C710 
030F 


D300 
9410 
0610 
4010 
O30F 


4800 
DEOO 
DBOO 
4890 
#200 
2333 
DEOO 
9304 


OA16 
16D6 
17C0 
0002 


16D6 
FFFF 


OA10 


2AE2 


OA2A 
OA2E 
16D6 
16DA 
1438 


OA4B 


1704 
2AE3 


0A10 
0A31 
1704 


(W/CONDITIONAL ASSEMBLY) 


=001410 


=001442 


LH R1,I0¢R1) 
STH R1,SINK 
LH R1,DUSAVE 


CLHI R1,2 

BE STSTDU2 

Lcs R1,1 
STSTDU2 LH RO,SINK 

XHI R1,-1 

BR LINK 


05/10/82 


GET DEVICE ADDRESS 
AND SAVE IT 

GET PARAMETER 

DU?? 


“NOT DU" EXIT: R1=CC=0 
PUT DEVICE ADDRESS IN RO 
"DU" EXIT: R1=CC<>0 
RETURN 


* TO DIRECT INPUT AND OUTPUT TO CCNSOLE DEVICE 


* 


SETKB LB RO,IO0 
EXBR R1,R0 
OAR R1,R0 
STH R1,IGSAVE 
BR LINK 


GET KEYBOARD DEVICE 


KB DEVICE = LIST DEVICE 
RETURN 


* TO PUT KEYBOARD DEVICE IN READ HODE 


* 


KBREAD LH RO,CONRADR 
oc RO ,CONRD 
RD RO-;SINK 
LY R9,PASFLG 
NOP * 

TTYGET BZ KRBXIT 


oc RO,CONRC2S 
KBXIT BR R4 
IFZ  SKBINT-1 


OC CONSOLE - READ COMMAND 


PASLA ? 
FOR SPECIAL KB DEVICE 

NO, BRANCH TO EXIT 

YES, CC CREQUEST TO SEND) 
RETURN 


* T0 SET UP KEYBOARD DEV TO READ WITH INT ENABLED 


KBRD ST¥ RO,RSAVE 
LH RO,CONRADR 
LH R1,PASFLG 
BZ KBRD1 
cc RO,CONRQ2S 
KBRD1 oc RO,CONENRD 
LM RO, RSAVE 
BR LINK 
ENDC 


* 


SETUP STA R1,SET.RTN 
LB R1,ITO0SAVE+1 
SLHLS R1,2 


Li RO,IC(R1) 

oc She Scrat 

LDA SET. BIR 

BR oe 
eCtretcerrcrcerrLecrecrcorcorrce. £2: 


* LOW CORE SET UP ROUTINE 


SAVE REGISTERS 
GET KB DEV ADR 
PASLA ? 


CONSOLE : ENABLE, READ 
RESTORE REGISTERS 
RETURN 


GET LIST DEVICE IDENTIFIER 
HW INDEX 
GET LIST DEVICE WRITE ADDRESS 


RETURN 


aa, 


MODEL 3229 


WRITEABLE CONTROL STCRE TEST 06-232K91R00A13 BASE 26 


EXEC - ETPE ROY 


00145C 
001455 
001460 
061464 
00 1U66 
OO146A 
OO14EE 
001872 
001476 
OO1U7A 
OOTUTE 
001482 
001486 
OO148A 
O0148E 
001492 
001496 
OOT49A 
OO149E 
OO14AZ 


OO1GA6 
OCO1“KAA 


OO14AE 
OOT4AE 


0014B2 
CO14B6 
OO14BA 
OOT4BR 


2410 
2422 
C830 
2400 
4001 
C110 
C810 
C830 
4001 
C110 
C800 
C830 
4001 
C110 
C830 
4030 
C840 
4040 
C830 
4030 


C830 


4030 


C840 


4O40 
C830 
4030 


OO4E 


9000 
1466 
0080 
OOCE 
0000 
1476 
14D4 
O8CE 
0000 
1486 
15AE 
0036 
15D4 
O03E 
1590 
OO4E 


1692 
OOCE 


2AE8 


0086 
157C 
0096 


CW/CCNDITICNAL ASSEMBLY) 


1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1329 
1321 
1322 
1323 
1324 


* 


LCORE 


ZERO1 


ZERO2 


ZERQ3 


+ 


* 


SET UP LOW CORE 


STH 


R3,X'8CE’ 


R1,Z722C3 


R4&,RSAVE 
ADC-2 
R1,¥C032 
LCORE32 


R4,X*°22° 
R3,FF 

R3,X*2E* 
F5,PSW2 
R5,X "44s 
R5S,XI16€ 
R5,X*46é" 
LINK 


* SET UP LOW CORE FCR 32 BIT 


* 


LCORE32 


STH 
LHI 
STH 
IFZ 
LH 

AAR 
LHI 
STH 


R4,X°86° 
R3,RP 
R3,X°S6* 
SKBINT-1 
R1,CONPADR 
Ri,87 

RO, KBINTO 
RO,X*DO'CR1) 


J 


08:11:57 


05/10/82 


ZERO CORE FROM O THRU Yturs 


ZEPO CORE FROM X°80' THRU X'CF' 
INTESRUPT HANDLER ROUTING 

SET UP INT SERVICE POINTER TARLE 
ITLL INST INT NEW PS¥ LOC 

Me. Me INT NEW PSW LCC 


ARITHMETIC FAULT NEW PSW LOC(32-RIT) 


FIXED PT DIVIDE FAULT NEW PSE LCC 


DATA FORMAT FAULT 


FOR 16 BIT MACHINE 


REG SAVE POINTER 
FLOATING PT FAULT INT NEW PSW LOC 
HW EXT INT NEW PSW STATUS 


EXT INT NEW PSW LOC 


MACHINE 


REG SAVE POINTER 
RELOC/PROTECT INT NEW PSW LOC 
LOAD CONSOLE I/O ADDRESS 


RO = ACKEYBOARD INT HANDLEP) 
STORE a@ X*DO'+2(KB DEV ADR) 


( 


MODEL 3220 WRITEABLE CONTROL STORE TEST 06-232491R00A13 PAGE 27 


EXEC - ETPE RO& 


CW/CONDITIONAL ASSEMBLY) 


O014BE 
0014C0 
00174Cu 
0014C8 
OO14CA 
00T4CC 
COEDS 
*0074D2 
OOTHD2 


2410 
C830 14D4 
4821 1B1C 
O21F 
OA22 
4032 00D0 
2612 


2207 =0014C4 


1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 


LCORE3 2A 


* KEYBOARD INTERRUPT HANDLE? 


* 


KBINTO 


KBINTOC 


KBINTOR 


KBINTOO 
KBINTOA 


KBINT1 


KBINT3 


R1,0 

R3,X1I32 
R2,DEVSACR(R1) 
LINK 

R2,R2 
R3,X"DO"(R2) 
Ri,2 


- LCORE32A 


SKBINT-1 


R3,X*20° 
KBINT4 
RO,IO 
RO0,5 
KBINTOB 
R2,HREADC 
R2,R3 

8,1 

R2,R4 
R2,R3 
R3,X*2C° 
KBINTOC 
RETOPSW 
R5,PASFLG 
KBINTOA 
R2,Ra4 
R2,83 

8,1 

R4,R4 
RETOPSW 
KBINT3 
R2,R83 
R3,X°20° 
3,KBINTOA 
XBINTOC 
RO,5 
KBINT3 
R2,MREADC 
R2,R3 
R2,R4 
RETOPSW 
R2,INTDEV 
R3,INTSTA 
ADC-2 
R4,HCD32 
KBINT2 


RO,CPSW 
R1,0LO0C 


08:11:57 05/19/82 


TO SFT UP SERVICE POINTER TABLE 


GET DEY ADR FROM TABLE 
DONE. RETURN 


STORE d@ X*DO'+2(DEV ADR) 


IS BREAK KEY DEPRESSED ? 
NO 


IS IT MICROBUS ? 
NO, BRANCH 
YES, ISSUE READ 


KNOCK DOWN BREAK 


BREAK STILL THERE ? 

YES, KNOCK IT DOWN AGAIN 
NG, RETURN ON OLD PSW 
CORSOLE ON PASLA ? 
BRANCH IF NO. 


WATT FOR BREAK RELEASE 
SO TO COMMAND MODE 

IS IT MICROBUS ? 

NO, BRANCH 

READ COMMAND TO MICROBUS 


KNCCK DOWN INTERRUPT 
RETURN 


STORF OLD PS OF 32-BIT 
IN ORDFR TO RETURN BACK 


ar, 


EXEC - 


O014D4 


OO14D4 
0014D6 
OO1TUDA 
OO1UDE 
OO14DE 


OOT4E2 
OO14KE5 
001456 


OO14EA 
OOT4EE 
O014F0 
OO14F4u 
OO014F8 


ETPE 


O5AA 
4OAO 
4020 
D230 


40900 
4010 


4320 
9512 
DOO00 
$820 
48A0 


ROY 


16CO 
16D0 
16D2 


16CA 
16CE 


OA54 


2870 
16D0 
16CO 


O8:714: 


(W/COCNDITIONAL ASSEHSLY) 


1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1436 
1439 
1449 
1404 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1849 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1453 
1464 
1465 
1456 
1467 


KBINT2 RDR  R2,R4 
BAL  LINK,ECHO 
LH = -R9,KBINT 
BNZR R9 
wwe ww we ww www we ee ww ww we eee we ee ee 
* TO RETURN ON OLD PS¥ 
* 
IFZ  ADC-2 
RETOPSW LH R9,MCD32 
BNZ  RETOPSW1 
LH RO, INTSAV 
LPSW ox'4cs 
* 
RETOPSW1 LPSW OPS¥32 
ELSE 
RETOPSW LPSW OPSW32 
FNDC 
ENDC 


* 
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ECHO RECEIVED BYTE 
IF ZERC,IGNORE; ELSE 
SO,PROCESS KB INT F 


RESTCRE REGISTERS 
RETURN ON OLD PS@ AFT 


KREME KK KKK KKK KKKKKKKKEKEKEKEE KKK KK KKK K KK KKK KEE 


* 


EXTERNAL INTERRUPT HANDLER 


IF2  ADC-2 

XI16 STM = RO, INTSAV 
ACKR R2,3 
IFZ  $KBINT-1 
CLH &2,CCNRADR 
BE KBINTO 
ENDC 
ENDC 

* 

X32 EPSR R10,810 
STH R10, INTPSW 
STH  R2,INTDEV 
STB B3,INTSTA 
IFZ  ADC-2 
LH R5,NCD32 
BNZ  XI32A 
LE RO,X"4O" 
LH R1,X°42" 
ENDC 

XI32A STH  R0,0PSW 
STH  R1,0LOC 
IFZ  ADC-2 
LDAR R5,P5 
BZ XI16A 
ENDC 
LH R2,PSW2 
EPSR R1,82 
STM  RO,INTSAY 
LH R2,INTDEV 
LH R10, INTPSH 


FOR 16-BIT PROCESSOP 
ACKNOWLEDGE THE INTERRUPT 


FROM KEYBOARD DEVICE ? 


FOR 32-BIT PROCESSOF 
CAPTURE CURRENT PSW 


STORE INTERRUPTING DEVICE ADDRESS 
STORE INTERRUPTING DEVICE STATUS 


16-BIT OLD PSW 
STORE OLD PSW STATUS 
STORE OLD PSW LOC 
MOD32 = 0 ? 

BRANCH IF YES. 


SELECT USER REGISTER SET 
SAVE USER REGISTERS 


MODEL 3220 


( 


WRITEABLE CONTROL STORE TEST 06-232M91R00A13 PAGE 29 08:11: 


EXEC - ETPE ROS 


CO1T4FC 
OQO14FE 
001502 
601506 
001508 
OO150A 
00150C 
OGI50E 
001512 
001516 


001516 


OO151TA 
00151C 
OO151E 
001522 
001526 


00152A 
00152A 
00152E 
001532 
001534 
*001538 
O0153A 
*O00153E 


001540 


001544 


001548 
00154C 
001550 


001554 


001558 
90155C 
001560 
001564 
001568 


2450 
4865 
4210 
0562 
2333 
2652 
2207 
4865 
4330 
4060 


1051 
10A4 
C4AO 
D4As 
4230 


4860 
C560 
2187 
C560 
2384 
D100 
2303 


D100 
4300 


0000 


C860 
4060 
41FO 


4300 


ceso 
4060 
D3AA 
D2A0 
&1F0 


TB1ic 
1548 


1820 
1548 
1546 


Q00F 
1B22 
1558 


16CE 


1166 


T17A 


2REB 


2370 


1544 


1546 


4634 
172E 
1030 


OB5C 


4636 
1725 
170C 
178F 
1030 


(W/CCNDITIONAL ASSEMBLY) 


=00150E 


=O014FE 


=001540 
=0017540 


=001544 


1468 
1469 
1470 
1471 
1472 
1473 
1474 


1475 - 


1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 


XI16A LIS R5,0 


X11 LH R6,DEVSADR(R5) 
BM XIERR 
CLAR R6,R2 
BES) XI2. 
AIS 85,2 
BS x11 
X12 LH R6,DEVINT(RS5) 


BZ XIERR 
STH R6,XIEXIT 


IFZ ADC-2 
IFNZ SCLOCK-2 
LH R6 ,4OD32 


BZ X13 
ENpc 

ENDC 

SRLS R5,1 
SRLS R10,4 


NHI R10,15 
CLB R10, INTL¥YL(R5) 
BNE LVLERP 


IFNZ SCLOCK-2 


XT3 Lu R6,0LO0C 
CLEI R6,STIMER1 
BLS XI4 
CLHI R6,STIMXT 
BNL XI4 
LM RO,RSAVE 
B XI5 
ENDC 

XT4 LM RO,INTSAYV 
NOSQZ 

XI5 B * 
SQUEZ 


XIEXIT EQU XI5+2 


XIERR LHI R6,C°F4* 
STH R6,ERRNO 
BAL LINK, ERRBALL 


B OPTIN1 
* DEVICE INTERRUPTED IN WRONG INTER 
* 


LVLERR LHI R6,C*F6* 
STH R6,ERRNG 
LB R10,HEXTABC(R10) 
STB R10,ERRLVL 
BAL LINK -ERRALL 


57 05/10/82 


GET DEV ADRS FROM TABLE 
TABLE OVERFLOW. 
COMPARE INTERRUPTING DEVICE ADDRESS 


GET INTERRUPT HANDLER ADDRESS 
INTERRUPT NOT EXPECTED 


32-BIT MACHINE ? 
BRANCH IF No. 


CHECK PROPES INTERRUPT LEVEL 


GET PSW AT TIME OF INTERRUPT 

WAS INTERRUPT IN TIFER ROUTINE ? 
BRANCH IF NO | 

YES, RESTORE FROM ‘TIMER" ENTRY 
RESTORE FROM EL16/X1I32 ENTRY 

AND GO TO INTERRUPT HANDLER 


NOTE: 16 KB RESTRICTION ! 


ERROR # FU 

*ERPOR XXFU°, ‘SEV DDD STA SS' 
"PSW PPP? oc LULL’ 

TO ENTER COMMANDO MODE 

RUPT LEVEL 

ERROR # F6 

CONVERT TO ASCII 


AND STORE ERROR LEVEL IN MESSAGE 
"ERROR XXF6°, ‘DEV DDD STA SS‘ 


Nee 


rd 


MODEL 32290 WRITEABLE CONTROL STORE TEST 06-232491R00A132 PAGE 30 08:11:57 05/15/82 


EXEC - ETPE ROY (H/CCNDITIONAL ASSEMBLY) 


1521 * ‘PSW PPEP LOC LLLL' 
00156C C850 177A 1522 LHI 85, INTLVL¥ 
001570 4O50 1654 1523 STH  R5,ISITERR SET FLAS TO OVERRIDE NOMSG OPTION 
001574 441FO 11CC 1524 BAL LINK,PRINT ‘INTERRUPTED IN LEVEL N° 
091578 4300 OBSC 1525 B OPTIN1 ENTER COMMAND MODE. 
1526 *----------------------------- 
1527 SPURICUS INTERPUPT HANDLERS 
1528 * 
| 1529 
001578 1530 IF2  ADC-2 
1531 * FLOATINS-PT ARITH FAULT INT TRAF (16 BIT PROCESSOR) 
1532 * 
1533 FP Ly R14,¥'28° OLD PSW (16-BIT PROCFSSOP) 
1534 LH R15,X°2A" OLD Lcc 
1535 ENDC 
: 1536 * 
1537 * RELOCATION/PRCTECTION INT TRAP 
1538 * 
00157C C820 4635 1539 RP LHI = 82, CFS" 
001580 4020 172E 1540 STH  R2,ERRNC SET ERROR # F5 
001584 50C0 283C 1541 st R12,VIRTADRS SAVE VIRTUAL ADDRESS 
001588 50D0 2838 1542 st R13,FCODE SAVE FAULT CODE 
00158C 4300 1656 1543 B MMCOM3 BRANCH TO PRINT 
1544 * 
1545 * ARITHMETIC FAULT INT (32-BIT PROCFSSOP) TRAP 
1546 
001590 C820 4631 1547 AF LHI =. R2, C°F 1° 
001594 4020 172E 1548 STH R2,ERRNO SET ERPO? # F1 
001598 4OEO 16CA 1549 STH R14,O0PS¥ 
00159C 4OFO 16CE 1550 STH R15,CLOC 
0015A0 2400 1551 LIS 0,0 
0015A2 5000 283C 1552 ST RO,VIRTADRS ZERO VIRTADRS 
00156 50D0 2838 1553 st R13,FCODE FAULT CODE 
OO15AA 4300 1656 1554 B MNCON3 
4555 * 
1556 * ILLEGAL INSTRUCTION INTERRUPT TRAP 
1557. * 
OO15AE C820 4632 1558 II LHI R2,C'F2' 
0015B2 4020 172E 1559 STH  R2,=RRNO SET ERROR # F2 
0015B2 1560 IFZ  ADC-2 
1561 LH R2,40D32 
1562 BNZ 1132 
1563 LH R14,%°30° OLD PSW 
1564 LH R15,X"32° OLD Loc 
1565 ENDC 
0015B6 4QOEO 16CA 1566 COMM STH  R14,0PS¥ 
0015BA 4OFO 15CE (1567 STH  R15,0L0C 
0015BE 4800 OA5& 1568 CONM1 LH RO,PSW2 
0015C2 9520 1569 EPSR R2,20 NO INT. , REG SET 15 
0015c4 41FO OFBE 1570 BAL LINK,ERR PRINT ‘ERROR XXFN' 
0075c8 4OFO 1654 1571 STH LINK, ISITERR FORCE PRINT 
0015CC 41EO 10F4 1572 BAL RET,ERRPL1 PRINT *PS¥ PPPP Loc LLLL' 
0015D0 4300 OBSC 1573 B OPTIN1 ENTER COMMAND MODE 


7 4 t ) 2 ' 


wie 


MODEL 3220 


WRITEABLE CONTROL STORE TEST 06-232NS1R00A13 


EXEC - ETPE ROW 


0015D4 
0015D6 
OQO15SDA 
OO15SDE 
O015E2 
0015E2 


0015E6 
OOTSEA 
OO015EE 
0015F2 
OO1SF6 
0015FC 
OO1SFE 
001600 
001602 
001606 
001606 


09160AR 
OO0160E 
001610 
001612 
001616 
001618 
00161C 
001620 
007624 
001628 


00162C 
001630 
001632 
6017634 
001638 
00163A 
00163E 
001642 
001644 
001646 
001648 
00164C 


OSAA 
C820 
4020 
48E0 
48EFO 


4OEO 
4OFO 
58D0 
50D0 
F4DO 
2333 
24C0 
2303 
58C0 
50Cc0 


4633 
172E 
0022 
0026 


16CA 
16CE 
0040 
2838 
C000 


0044 
283C 


OA10 


16DA 


OA2C 
O2R30 
CA2A 
OA2E 
16D6 


OA11 


T6DC 


OA11 
0410 


0219 
OA32 


CW/CONDITIONAL ASSEMBLY) 


9000 
=001602 


=001606 


=001618 


=00162C 


=00163A 


=001656 


=001656 


1574 
4575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 


( 


PAGE 31 


08:11:57 


* MACHINE HALFUNCTION INTERRUPT TRAP 


MM 


MM32 


MM31 
MM33 


MMCOM1 


EMCOM1A 


* 


MECOK2 


MENCOM2A 


05/10/82 


R10,R810 CAPTURE MMINT PSW 
R2,C'*F3° 

R2,ERRNO SET ERROR # F3 
R14,X°22° OLD PSW ( 32-BIT PROCESSOR) 
R15,X' 26° OLD LOC 

ADC-2 

R2,40D32 

4N32 

R14,X%°38" OLD PSW (16 BIT PROCFSSOR) 
R15,X°3A° OLD Lec 

R14,0PSW 

R15,O0LOC 

R13,X'40° GET FAULT CODE 
R13,FCCDE 

R13,¥*coOcoo000' 

¥M31 

R12,0 

4H33 

R12-XK"'4us GET VIPTUAL ADDRESS 
R12,VIRTADRS 

ADC-2 

R1,X°7FFF* 

Ri,1 

KN 16 

R2,10 GET INPUT DEVICE POINTER 
R2,5 IS IT MICRO T/O BUS 
MMCOKIA YFS, BRANCH 

F2,PASFLG IS CONSOLE ON PASLA? 
MNCOH2 NO, BRANCH 

R2,CONWADR 

R2,CON2ND ISSUE 2ND/RESET COMMAND 
R2,CONRADR GET RECEIVE ADSRESS 
k2,CONRD OUTPUT READ CHD 

R2,SINK DUMMY PEAD TO SET BUSY 
F2,10+1 SET LIST DEVICE POINTER 
R2,5 IS TT MICRO IT/9 BUS? 
MMCOM2A YES, BRANCH 

R2,PASFLG2 IS LIST DEVICE ON PASLA 
MNCOM3 NO, SPANCH 

R1,10+1 YES, GET LIST POINTER 
R2,10 SET CONSOLE POINTER 
R1,R2 CONSOLS =LIStT DEVICE? 
ENCOMS YES, BRANCH 

P1-2 

R2,I0(R1) GET LIST DEVICE TRANSMIT ADDRESS 
R2,CONCMD(R1) ISSUE 2ND/RESET CMD 
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EXEC - ETPE ROY CW/CONDITIONAL ASSEMBLY) 


001650 2711 1627 SIS _R1,1 
001652 DE21 0A32 1628 oc R2,CONCEE(R1) ISSUE LIST WRITE COMMAND 
001656 2408 1629 MMCOM3 LIS RO,8 
: 001658 5810 2838 1630 L R1,FCODE GET THE FAULT CCDE 
: 00165C C820 29D5 1631 LHI R2,MSG114+1 
001660 u1FO 11A4 4632 BAL LINK,HE¥ASC CONVERT TO ASCII 
001664 2408 1633 LIS R20, 2 
001666 5810 283C 1634 L R1,VIRTADRS GET VIRTUAL ADDRESS 
00166A £820 2983 1635 LHI -R2, 48611415 
001665 44FO 141A 1636 BAL  LINK,HEXASC CONVERT TO ASCII 
001672 41FO OFBE 1637 BAL  LINK,ERE PRINT ERR NUMBER 
001676 4OFO 16E4 1636 STH LINK, ISITERP FORCE PRINT 
. 001678 W1EO 10F4 1639 BAL  RET,ERRPLI PRINT PSW,LOC 
O0167E C850 2986 1640 LHI R5,¥SG10 PRINT ‘FAULT CODE VIRTUAL ADDRESS! 
001682 41FO 141CC 1644 BAL  LINK,PBRINT 
001686 C850 29D4 1642 LHI RS, MSG11 
00168 W1FO 11CC 1643 BAL  LINK,PRINT 
G0168E 4300 OBSO 1644 B OPTIN 
1645 * 
1646 * DATA FORMAT FAULT INTERRUPT TRAP 
1647 * 
001692 C820 4637 1648 DEF LHI R2,C*FT7* ERROR TTF? 
001696 4020 172E 1649 STH  R2,ERRNO 
OO169A 4OEO 16CA 1650 STH  &14,O0PSW OLD PSW 
001695 4OFO 16CE 1651 STH  R15,0L0C OLD toc 
001622 50D0 2838 1652 ST R13,FCODE SAVE FAULT CODE 
OO1ER6 C5D0 0006 1653 CLHI R13,6 
*OO16AR 2335 =0016B4 1654 BE DFF1 
( 0016AC C5D0 0007 1655 SIRE 34347 
001630 2332 =0016B4 1656 BES DFF1 
001652 240 1657 LIS  R12,0 
( 001684 50CO 283C 1658 DEF1 ST R12,VIRTADRS 
0016B8 4300 1656 1659 B HNCO¥3 
1660 * 
{ 1661 * 
1662 * 
1662 * KR KK KEKE KKK KKEKKKKREEKKEKKK 
( 1664 * ETPE CONSTANTS € TAELES 
1665 * 
00168C 0000 1666 FIRST DCX 0 
( 0016BE 0000 1667 MOD32 DCX 0 FLAG FOR 32-BIT M/C(NON-ZERO) 
0016C0 9000 1668 INTPSW DCX 0 (FOR 32-BIT M/C ONLY) 
| 001608 1669 ALIGN 8 
€ hG7O *eesmesees ooo oc soc eS 
0016C8 0000 1671 OPSW32 DCX 0 OLD PSW STORAGE AREA 
0016CR 0000 4672 OPSW DCX 0 
( 0016CC 9000 : 1673 DCX 0 
0016Cz 0000 1674 OLOC DCX 0 
qe7G.. ace Ss ata Sed eee ee 
0016D0 0000 1676 INTDEV DCX 0 INTERRUPTING DEV ADR 
0000 16D0 1677 ERRDEV FOU  INTDEV ERROR DEVICE # 
001652 00 1678 INTSTA DB 9 INTERRUPTING DEY STATS 
t 0000 16D2 1679 ERRSTA EQU  INTSTA ERRONEOUS STATUS 
é 


( 
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EXEC - ETPE ROY 


0016D3 
0016D4 


00170C 


00170C 
001714 


00171C 
001724 


001726 
O00172E 
901730 


001732 
OO173A 
001740 
001742 
OOT7HA 
00174&C 
001754 


0090 
0000 
0000 


0006 


0000 
0000 
0900 
0000 


3233 
4142 


5354 


1722 
5S24F 


172C 
172E 
5441 
5445 


2045 


5620 
4120 


(W/CCNDITIONAL ASSEMBLY) 


3435 
4344 


2020 


5220 


4020 
R252 


§252 


2A24A 
2A2A 


3637 
4546 


2A2A 


2A2A 


2020 


4F52 


2A20 


NORM 
INCR 


SINK 
PASFLG 


KBINT 


BRKVECT 
BRKFLG 
PRTFLG 
ISITERR 
NOERR 
SELTST 
WASDU 
WASDU1 
TOTAL 
TOTERR 
BTIESTNO 
COUNT 
NEXTST 
SNULL 
PAUSE 
OUT.SAV 
BRK.SAV 
SET.RTN 
COMRET 
* 


DECTAB 


HEXTAB 


* ETPE 


* 


TSTMSG 
MTESTNO 
ERRESG 


ETESTNO 
ERRNO 
TOTESG 


NOERMSG 


(ALIGN ON HW BOUNDRY) 

BIT BUCKET 

SET WHEN CONSOLE ON PASLA/PALN 
SET WHEN LIST DEVICE ON PASLA 


KEYBOARD INT RETURN ADE 


BREAK KEY VECTOR 


HIGHEST SELECTED TEST # 

1 IF KEYBOARD DEVICE WAS OFF 
NON-ZERO IF TOTAL,TOTERR TO PRINT 
# OF TIMES THE SELECTED TESTS RUN 
TOTAL ERRORS DETECTED WHILE DY 
CURRENT TEST # IN BINARY 


NEXT TEST # 

NULL HW FOR DISPLAY USE 

SET DURING TRANSMISSION PAUSE (C200) 
OUTCHR RETURN ADORESS SAVE 

TSTBRK RETURN ADDRESS SAVE 

SETUP RETURN ADDRESS SAVE 

ERECOM RETURN ADDRESS SAVE 


STORED BY ETPE 
STORE ERRNO AS CHAR CONSTANT 
ODOO*" 


DB Xx*80° 

DB x*4o' 

DB * 

DC 0 

DCX 0 

DCX 0 

IFZ SKBINT-14 

Dc ZCRETOPSW) 

ENDC 

DC 2(0) 

DCX 0 

DCX 0 

DCE 0 

DCE 8) 

DCX 0 

DCX 0 

DCX 0 

DCX 0 

DCX 0 

DCX 0 

DCX 0 

DCX i) 

DCX 0 

DCX 0 

DAC 0 

DAC 0 

DAC 0 

DAC 8) 

IFZ SDECTAB-1 

DC 1,19,100,1000,19090 
ENDC 

DB C°O0123456789ABCDEF® 

Fe me we ae ae a a ee a eo ee ee ew ee ee 

MESSAGES 

qc C'TEST ¥***,X'ODCO' 
FOU TST¥SG+6 

BC C*ERROR ****",X*ODO0" 
EQU ERRFSG+6 

EQU ERRESG+8 

DC C'TOTAL TOTERRK',X* 
DC C*'NO ERROR’,X*ODOO* 
DC C°DEV 244 STA Fe KE 


DEVMSG 


Opodo’ 


ane 


ate, 


os 
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WRITEAPLE CONTROL STORE TEST Q5-232M91ROCA13 PAGE 34 08:11:57 65/10/82 


EXEC - ETPE ROY 


DO17TSA 


Q0175C 
COT764 


001766 
OO176E 
001776 
001778 


OO177A 
001782 
OO178A 
001790 


001792 
OO0179A 
OOT79E 
0017A0 
OO17A2 
OO17A4 
0017A6 
0017A8 
OO17AA 
QO17AC 
0017B4 
0017BC 
OO17BE 
0017C0 
o0o017C4 


O0DOO0 
00CcO0 
0000 
000Q 
4uus 
Ond9d 
0000 
5053 
2020 
2A 2A 
ODOO 
0000 
0000 
9090 
494E 
5445 
4556 
0DOO0 
0000 
454E 
4553 
ODCO 
3FOD 
2A0D 
PREF 
FFFF 
FRFF 
OA8D 
4252 
524D 
4E20 
FFOD 
0000 
0000 


1750 
1754 
1758 
5620 


1766 
5720 
UC4F 


176A 
177 
1774 
54us 
4429 
uS4c 


178F 
4420 
5420 


4541 
4GUE 


0000 
0000 


(W/CONDITIONAL ASSEMBLY) 


2A24R 


2AZK 
4320 


5252 
uguP 
2022 


HF UG 


4820 
&1SL 


2420 


2A2A 
ZAZA 


2054 


5445 
4OuF 


1725 
1726 
1727 
1728 


1729 
1730 


1731 
1732 
1733 
1734 


1735 
1736 


1737 
1738 
17393 


1740 


174 
1742 
1743 
1744 


ASCIDEV 
STANSG 

ASCISTA 
DEVMSG2 


ASCIDEV2 
PSAMSG 


ASCIPSW 
LOCMSG 

ASCILOC 
INTLVL4 


ERRLVL 
EOTKSSG 


QMSG 
AMSG 
BRKMSG 


DUSAVE 
DUSAVE1 
* 


EQU 
EQU 
EQU 
DC 


FQU 
DC 


EQU 
ZQU 
EQU 
dC 


DC 
DC 


BDEVNSG+4 
DEVNSG+8 
DEVMSG+12 
C'DEVY ***" .xX*'0D00' 


¥ 
SR wkkkk LOC weeee YT ODOC’ 


DSWMSG+H 
PSWMSG+10 
DSWHSG+14 
C*INTERRUPTED IN LEVEL **,X*oDO0' 


INTLYLM+21 
CSEND OF TEST',X'ODOO' 


X*3FOD° 
X*2ACD° 
FEFE,ERFE 


X*FFFF*',X‘OA8D",C°BREAK TERNTNATION',X"FFOD'* 


0 
0 


*ETPE FILE **END** 


on 


MODEL 3220 

EXEC - ETPE 

0000 

0017C8 5445 
OOT7TCE FESO 
0017D0 0000 
Q017D2 0000 
0017D4 uC4UF 
OO17DA 0000 
0017DC 0000 
O017DE 9000 
0017E0 434F 
O017E6 0000 
0017E8 OD76 
OO17ER 0000 
OO17EC EGF 
0017F2 0000 
OO017F4 OD6E 
0017F6 0000 
OO017F8 SD4F 
OO17FE 0000 
001600 OD76 
001802 0000 
001804 5441 
00180RK 0000 
00180C OD76 
00180E 0000 
001810 5743 
001816 0200 
901818 1870 
001813 90900 
0000 

00181C 5743 
001822 1000 
001824 1894 
001826 0000 
ezezere) 

0000 

0971828 &O4E 
00182E 0000 
C0136 0D86 
0071632 9000 
001834 4657 
00783A 2020 
00163C 18468 
001835 0000 
007840 4F50 
001846 9000 
001848 18BA 
OO184A 9000 
9000 


WRITEABLE CONTROL 


R04 


17C8 
5354 


4F50 


4E54 


4D53 


H44s 


4CHC 


534C 


1816 
5348 


1822 


1828 
544Cc 


4F52 


5449 


1840 


( oe 
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(W/CCNDITIONAL ASSEMBLY) 


2026 


2020 


BOLE 


4720 


592C€ 


GE2C 


&920 


GFEE 


1746 
1747 
1748 
1749 
1750 


1751 


1752 


1753 


1754 


1755 


1756 


1757 
1758 


1759 
1760 
1761 
1762 


1763 


1764 


1765 


* OPTION/SCONMAND TABLE 


LOOP 
CONTIN 
NOKSG 
NODE 
TALLY 
WCSLO 


DCSLO 
WCSHI 


DCSHI 


OPTEND2 
INTLEV 


FWORD 


OPTEND 


EQU 
bc 


Dc 


DC 


DC 


DC 


DC 


DC 


EQU 


ones *,X*FE4O*,X°0000°,xX*8000° 
C*LocP ‘',X*0000*°,X"0000°,x*3500° 
C*CORTIN’ ,X°0000°,Z(ZERONE),%'09000' 
C*NOMSG ",X*0000°,Z(ZERONE2) .X*0000° 
C*MODE ‘',X*0000',Z(ZERONE),£¥*0000' 
C*TALLY °,X*'0000°,Z(ZERONE),%'O000' 


C*WCSLO *,X*°O0800",Z(0VALCHK),xX*'0000° 


6 
WCSHI °',X'1000',Z(VALCK1),%*0000' 


*-6 


* END OF SRINTING CPTIONS 
C*INTLEY*,X*GO00*,Z(LEVEL),¥‘'9000° 


C*FWORD *,X*2020",Z(FWCHK),F°S090' 
C* OPTIONS, X*0000"°,Z(TABPRINT),X'Q90°%" 


OPTION 


ad 


er 


ah. 


MODEL 3220 


EXEC 


OO184C 
001852 
001854 
001856 
001858 
00185E 
001860 
001862 
001864 


001868 
00186C 


001870 
001872 
001876 
OO187A 
OO187E 
001882 
0017886 
OO188A 
00188E 
001890 


001894 
001896 
001894 
OO0189E 
OO018A2 
0018A6 
OO1SAA 
OO18AE 
0018B2 
OO018B4 
CO18B6 


QO18BA 
O0O018BE 
0016C2 
0018CY4 
0018C8 
0018CC 
0018CE 
0018D0 
0018D2 
0018D6 


5255 4E20 2020 
0000 


A34F 4E20 2020 


2026 =00178C4 
3850 2848 


1766 
1767 


1768 


1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 


- 1785 


1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
18410 
1311 
1812 


(W/CONDITIONAL ASSEMBLY) 


* 


« 


>) 


RUN 


CON 


VARLCHK 


* 


VALCK1 


TABPRT1 
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08:11:57 95/19/82 


C*RUN *,X*9000', X*0006"°,%*5090" 


C'coNn ",X¥"9000",x*'0000",¥'2900° 


QUESTN 
R6,X°10C0' 
QUESTN 
R6,DCSHI 
R15 
QUESTN 


* 


R5,R6 
R5,X°OFF® 
QUESTN 
R6,X"800' 
QUESTN 
R6,X'100C* 
QUESTN 
R5,DCSLO 
R5,R6 

R15 
QUESTN 


* 


LINK,CRLF 
R2,F WORD 


LINK ,OUTCH: 
R2,1 

R3,1 
TABPRT1 
R5,CONST1 
50,8 


END OF CPTION TABLE 


GET WCS LO¥ ADDRESS 
TS IT ON & 256 BORD BOUNDARY 
NO, ERROR 


LESS THAN WCS HIGH ADDRESS 
YES, RET TRS 
ERROP 


GET WCSHT 
IS IT ON 256 WORD BOUNDARY 
NO, BRANCH 


GET WCS LOWY ADDRESS 

IS WCSHI GREATER THAN WCSLO 
YES, BRANCH 

NO ERROS 


HODEL 3220 


WRITEABLE CONTROL STORE TEST 06-232M91R00A13 PAGE 37 08:17:57 05/10/82 


EXEC - ETPE RO4 


0018D8 
0018DC 


0018F0 
0018E2 


0018E6 
OO18EA 
OO18EE 
0018F2 
O018F6 
0018F8 
OOT8FC 
001900 
001902 
001906 
O00190A 


00190E 
001910 
001914 
001918 


00191C 
001920 
001924 


001928 


00192A 
00192E 


001930 


41FO 
4300 


3000 
8800 
4300 


0000 


E570 


117C 
OC4A 


18E0 


OA60 


18E6 


275C 
16DE 
1816 
1822 


2854 
OOFO 


2A2A 
172C 
280A 


16E4 
TEE6 
16F0 


0030 
194A 
0034 


O1FO 


0005 


CR/CCNDITIONAL ASSEMBLY) 


BAL LINK, RSHEX 
B OPTRTIN 


* 
* 


STOP.TST EQU * 


DCX 8800 BRFAK POINT 


GO TO BEGINNING OF TEST 


= 


NIT EQU * 


k~ kK ke kK eK eR we we kK Ke wR Re KE eK kK KE KK KE kK KF * 


THIS ROUTINE CHECKS THE BDCS AND RDCS 
INSTRUCTIONS IN USER AND SUPER¥YISOR MODE. 
THEN THE FIRST WORD OF THE WCS IS TESTED 

AND IF WCS IS PRESENT, THE PROGPAM PRINTS THE 
MESSAGES *WCS FOUND’ AND ‘°TEST EXECUTION 
STARTED* AND BEGINS EXECUTION CF THE TEST. 

IF NOT PRESENT,THE PROGRAM PRINTS THE MESSAGE 
“WCS NOT FOUND AND RETURNS TO COMMAND MODE. 


ee 
+ * OF OF ob FF OF 


* 


xk we &e & kK & & we kK KR KK KE Kw K we Ke KR KR &K KH we KK KK OK 


LHI DAT,ERRLIST 


x 
* 
* 


STH DAT,BRXVECT 


LH DAT,DCSLO 
LH STAT,DCSHI 
SR STAT,DAT 


STH STAT,DELTA 
LHI DAT,X*OOFO* 
EPSR STAT,DAT 
LHI DAT,C**** 
STH DAT,ETESTNG 
BAL RET2,CLRTBL 


LIS ZERO,0 

STH ZERO, ISITERR 

STH ZERO,NCFRR 

STH ZERO, TOTERR 
SUPERVISOR START 


ST ZERO,X'30° 
LA DAT, TESTB 
ST DAT, X*34"* 


LIs ONE, 1 
LHI STAT,X‘O1FO* 
EPSR 0,STAT 


IN USER MODE, BDCS SHOULD 


TESTA BDCS DAT,xX‘O05* 


EXIT TOC ERRLIST ON BEURK 


GET WCSLO ADDRESS 


GET WCSHI ADDRESS 
HI-LO 
STORE DIFFERENCE 


STORE PROMPT FOR TEST NUM 


EE 
‘es 


CLEAP ERROR TALLY TAPLE 


CLEAR ENC ERRCR FLAS 
ZERO TOTAL ERROR 


SET UF 
ILPSW FOR TRAP 


SWITCH Ta 
USER MODE 


BE ILLEGAL (PRIVILEGED) 


BRANCH TO DO A LHI 


wa 


‘ar 


ERE 


MOD 


32296 


EXEC - ETPS 


001934 
001938 
00193C 
001940 
001944 
001946 


OO194A 
OO194E 


001952 


001856 
OO0195A 


O0195F 
001962 
001966 
001968 


00196C 


00196E 
001972 
001976 
001978 
001978 


00197C 
001980 
001982 
001986 


O0198A 
001988 


E670 
5070 
C870 
4070 
2470 
41FO 


2670 
5070 


=570 


RO 


193¢ 
0034 
3030 
172E 
26F6 


196E 
0034 


0005 


0005 


197C 


3032 
AT2E 


0005 


WRITEABLE CONTROL STORE 


TE 


ST O6-232M91R0CA13 PAGE 38 08:11:57 05/19/82 


(W/CCNDITIONAL ASSEMELY) 


=CO1S7C 


1866 
1867 
1868 
1869 


* 
* IF FALL THRU, ERROR 090 
* 
LA DAT,FERROO 
ST DAT,X'34° SET UF ILPSwW 
ERROO LHI DAT,C'CO". 
STH DAT, FRENO SET ERRNO TO 00 
LIs DAT, 
BAL LINK, TALLI PRINT “ERROP **OO' 
* PND ALSC TALLY IT 
* 
TESTB LA DAT, ERRO1 SET UF ILPSY 
st DAT,K'34° 
* 
* IN SUPERVISOR MODE, BDCS SHOULD 2E LEGAL 
* 
BDCS DAT,xX*OO5" LBRAKCH TO DO A LHI 
* IF FALL THRU, BDCS WORKED 
* ADDRESS ‘005 IN THE FIXED CONTROL STORE 
* IS A BRANCH TO USER'S LHI INSTRUCTION SEQUENCE. 
* REGISTER DAT SHOULD NOW CCNTAIN ¥*0005° 
™ 
TESTC CLHI DAT,xX*GOO5* 
BE TESTD IT DOES, CONTINY= 


* 


* SOMETHING WENT WRONG, DATA IS INCORRECT 

* 

LHI DAT,C‘Q2°* 

STH DAT,ERRNO 

LIs DAT,02 

BAL LINK ,TALLT PRINT “ERROR **02° 
AND ALSO TALLY IT 


STORE ERROR NUMBER '02' 


+ 


RBS TESTD 
* 
* 
ERRO1 LHI DAT,C*O1" 
STH  DAT,ERRNO STORE 01 
LIS DAT,x'01* 
CNOP 4 ALIGN CALL PARAMETER 
BAL  LINK,TALLI PRINT ERROR **01 
* AND ALSC TALLY IT 
* 
* 
TESTD LHI STAT,X'C1FO* 


EPSR O,STAT 
LA DAT, TESTE 
Sah DAT,X*34° SET UP ILPSW 


SWITCH TO USER WODE 


* IN USER MODE, RDCS SHCULD BE ILLEGAL (PRIVILEGED) 

* 

LHI 2,X'Q9005" 
3,1 


LIs 2 FULLWORDS 


) - , 
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001990 E640 2A5C 1919 LA 4, BUFF TARGET 
1920 * 
001994 5824 1921 PDCS 4 
1922 * . 
1923 * IF FALL THRU, ERROR 03 
1924 * 
001996 E670 199E 1925 LA DAT,ERRO3 
00199A 5070 0034 1926 ST DAT, X*3a°* SET UP ILPSW 
00199E C870 3033 1927 ERRO3 LHI DAT,C‘'03* 
0019A2 4070 172E 1928 STH  DAT,ERRNO STORE 
0019K6 2473 1929 LIS  DAT,xX'03* 
001948 1930 CNOP 4 ALIGN CALL PARAMETER 
001948 41FO 26F6 1931 BAL LINK,TALLI PRINT ERROR **03 
1932 * AND TALLY IT 
1933 * 
1934 * 
O019AC C890 00FO 1935 TESTE LHI STAT,X*OOFO' 
001930 9579 1936 EPSR DAT,STAT SELECT REG SET F 
0019B2 2431 1937 iis -331 TWO FULLWORDS 
0019B4 "670 1AF2 1938 LA DAT, ERROW 
0019B8 5070 0034 1939 ST DAT, X'38° SET UP ILPSW 
1940 * 
1941 * IN SUPERVISOR MODE, RDCS SHOULD BE LEGAL 
1942 * RDCS CAN READ ONLY WCS ADDRESSES (x'800" & ABOVE) 
1943 * THIS TEST IS TO CHECK ONLY IF 23 IS DFCREMENTED CORRECTLY. 
1944 * 
0019BC E824 1945 RDCS 4 
1946 * 
0019BE C530 FFFF 1947 CLHI 3,X'FFFF* CHECK COUNT 
0019C2 2339 =0019D4 1948 BES TESTEF1 
1949 * 
4950 * COUNT INCORRECT 
1951 * 
0019C4 C870 3035 1952 LHI DAT,C'O5' 
0019C8 4070 172E 1953 STH  DAT,ERRNO 
0019CC 2475 1954 LIS DAT,X‘'05' 
0019CE 0200 13955 CNOP 4 ALICN CALL PARAMPTER 
0019D0 41FO 26FE 1956 BAL LINK,TALLI PRINT ERROR **05 
1957 * AND ALSG TALLY IT 
1958 * 
1959 * 
1960 * 
0019D4 O7CC 1961 TESTEF1 XR POINT, POINT 
0619D6 E670 1A00 1962 LA DAT, LPEND1 
0019DA 5070 0034 1953 ST DAT, X'34° SET UP ILPSW 
1964 * 
0019DE 4OCO 2824 1965 INSTLP1 STH POINT, TSAVE 
0019E2 4B7C 28E0 1966 LH DAT, INSTAB( POINT) 
0019E6 4070 19EA 1967 STH DAT,INSTR1 ILLEGAL INSTRUCTION 
1968 * 
1969 * IF FALL THROUGH, ERROR. UNUSED R/WDCS CPCODES (F.C. £81) 
1970 * SHOULD BE ILLEGAL IN SUPERVISCR MODE. 
1971 * 
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EXEC - ETPE ROG C(K/CONDITIONAL ASSEMBLY) 


1972 * 
OO1SEA £210 1973 INSTR1 DCX  §£810,0200,C200 SHOULD BE ILLEGAL 
0019EC 0200 
CO19EE 0200 
0019F0 C870 3033 1974 ERROS.1 LHI DAT,C‘'OS* 
001SF4 “OTTO I72E 1975 STY  DAT,EBRNC 
0019F8 2479 1976 LIS DAT,Y¥*09° 
0019FA 0290 1977 CHOP 4 ALIGN CALL PARAMETER 
0019FC WFO 26F6 197 BAL  LINK,TALLI FRINT ERRQ08 **G0 
1979 * AND ALS) TALLY IT 
1980 * 
001400 4BCO 282 1981 LPEND1 LH POINT, TSAVE 
001A04 26C2 1982 AIS  POINT,2 
001A06 C5C0 001C 1983 CLHI POINT,28 ALL INSTRS TESTED ? 
OO1A0A 4260 19DE 1984 BL INSTLP1 NO. 
1985 * 
‘ 1986 * 
OO1A0E 97CC 1987 TESTEF2 XR POINT,POIN™ 
1988 * 
001A10 4ocd 2824 1989 INSTLP2 STH POINT, TSAVE 
001A14 E670 1AU8 1930 LA DAT, LPEND2 
001A13 5070 0034 1991 St DAT, X*°34° SET UP ILPSW 
t 001A1C 4B7C 2REO 1992 LY DAT, INSTAB(PCINT) 
001420 4070 1A2A 1993 STH DAT,INSTR2 ILLEGAL INSTRUCTION 
O01A24 C890 O01F9O 1994 LHI STAT,X'O1FO" 
‘ 001A28 9579 1995 EPSR DAT,STAT ENTER PROTECT MODE 
1996 * 
1997 * IF FALL THROUGH, ERROR. UNUSED R/WDCS OPCODES (E.G. E81) 
i 1998 * SHOULD ALSO BE ILLEGAL IN PROTECT MODE. 
1999 * 
2000 * 
€ OOA2A E810 2001 INSTR2 DCX £810,0200,0200 SHOULD BE ILLEGAL 
001A2C 0200 
OO1R2E 0200 
( 2002 * 
001230 E670 1A30 2003 ERRO9.2 LA DAT, ERRO9.2 
001434 5070 0034 2004 St DAT, ¥'34° SET UP ILPS¥ 
( 001A38 C870 3939 2005 LHI DAT,C‘O9°* 
001A3C 4O70 4725 2006 STH  DAT,ERRNO 
001A40 2479 2007 LIS  DAT,x*oS* 
¢ 001442 0200 2008 CNOP 4 ALIGN CALL PARAMETER 
OO1R44 41FO 26F6 2009 RAL  LINK,TALLI PRINT ERROR **09 
2010 * AND ALSO TALLY IT 
2011 * 
001A48 48CO 2824 2012 LPEND2 LH POINT, TSAVE 
OO1A4C 26C2 2013 AIS POINT,2 
t O01AGE c5C0 001C 2014 CLHI POINT, 28 ALL INSTRS TESTED ? 
001452 4280 1A10 2015 BL INSTLP2 
2016 * 
2017. * 
SOTASE E670 ASC 2018 TESTE LA DAT, TESTS 
OO1AS5A 5070 6034 2019 St DAT, X*34° SET UP ILPS¥ 
( OO1A5E 890 O1FC 2020 LHI STAT,X'O1FO! 


rd 


( a ( a 
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EXEC - ETPE RO (W/CONDITIONAL ASSEMBLY) 


001A62 9509 2021 EPSR O,STAT USER MODE 
OO1A64 F870 5050 5050 2022 LI DAT, Y*50505950" 
OOTA6A 5070 2844 2023 ST DAT,CONST DATA PATTERN 
OO1R6E E670 2844 2024 LA DAT,CONST 
001872 4800 1816 2025 LH 9,DCSLO START POINT 
OO1A76 0711 2026 XR 1,1 IN USER MODE, WDCS 
001A78 E807 7 2027 WDCS DAT SHOULD BE ILLEGAL 
2028 * 
2029 * IF FALL THROUGH, ERROR 07 
2030 * 
OO1A7A E670 1A82 2031 LA DAT,ERRO7 
OO1ATE 5070 0034 2032 ST DAT,X‘34°* 
OO1A82 C870 3037 2033 ERRO7 LHI DAT,C*°O7°* 
001A86 4070 172E 2034 STH DAT,ERRNC 
OO1A8A 2477 2035 LIs DAT,7 
001A8C ' 2036 CNOP 4 ALTGN CALL PARAMETER 
OO1A8C H1FO 26F6 2037 BAL LINK, TALLI PRINT ERROR **07 
2038 * 
OO1A90 E670 13804 2039 TESTG LA DAT,ERROS8 
OO1A94 5070 0034 2040 St DAT,X*34° SET ILPS¥ 
OO1A98 C870 OOFO 2041 LHI DAT,X*OQOFO* 
OOTA9C 9597 2042 EPSR STAT,DAT SELECT REG SET F 
OO1A9E ; F670 2844 2043 LA DAT,CONST 
COTAA2 E6CS 2A5C 20484 LA POIST,BUFF 
2045 * 
OOTAA6 0711 2046 TDCSS1 XR 1,1 1 FOULLWORD 
OO1AA8 £807 2047 WDCS DAT WRITE DATA PARITERN 
OO1ARA 0820 2048 LR 2,0 
OOTAAC 0733 2049 XR 3,3 
OOTAAE E82Cc 2050 RDCS POINT READ I? BACK 
OG1ABO 5880 2A5C 2051 L CHAR,BUFF 
OOTAB4 F5BO 5050 5050 2052 CLI CHAR,Y'50505050' PATTERN CAME BACK? 
OO1ABA 4330 1ADO 2053 BE FNDLO 
2054 * 
2055 * DID NOT FIND ANY WCS. 
2056 * 
OO1TABE C850 2936 2057 NODCS LHI R5,éMSC5 "NO WCS FOUND’ 
OO1TAC2 0200 2058 CNCP 4 ALIGN CALL PARAMETER 
OOTAC4 4050 1654 2959 STH R5,ISITEPR FORCE PRINT 
OO1ACS8 44FO 11CC 2060 BAL LINK,PRIKT PRINT IT 
OO1TACC 4300 OB5C 2061 B OPTIV 
2062 * 
OO1ADO C850 2944 2063 FNDLO LHI R5,*¥SG4 ‘WCS FOUND® 
OCTADY 41FO 11CC 2064 BAL LINK, PRINT 
OOTAD8 4850 1656 2065 LH R5,NCERE ANY ERRORS? 
OO1ADC 2335 =O01AE6 2066 BZS FNDL1 NO BRANCH 
OO1ADE 4850 17FE 2067 LH R5,MQDE+5 KODE SET? 
OO1AE2 4330 0550 2068 BZ OPTIN NO,GO TO COMMAND MODE 
001AE6 C850 2952 2069 FNDL1 LHI RS ,MSG6 ‘TEST EXECUTION STARTED 
OO1AEA 41FO 11CC 2076 BAL LINK,PRINT 
OO1AEE §300 OF2E 2071 B INITRET RETURN TO ETPE 
2072 * 


OOTAF2 C870 3034 2073 ERROU LHI DAT,C* 94" 


“ee 


MODEL 


EXEC - 


OOTAF6 
OOTAFA 
COTAFC 
OOTAFC 


0013800 


O01B04 
001B08 
OOTROA 
CO1BOE 
001B12 
OO1B14 
001B14 
001B18 


3226 


ETPE 


WRITERELE CONTROL 


ROY 


172E 


CW/CCONDITIONAL ASSEMBLY) 


2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2989 


ERROS 


STORE TEST 96-232N97R00A73 PAGE 42 


STAT, X*OOFC* 
DAT,STAT 
DAT,C'O8* 
DAT,ERRNO 
DAT,X'O8° 
LINK,TALLI 
NODCS 


ALIGN 
PRIXT 


ALIGN 
PRINT 


06:91:57 05/15/82 


CALL PARAMETER 

EPEOR *#0u 

ie ae a 
PARAMETER 


ALL 
SROR **08 


=~ 
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2091 * 
2092 * 
OO1B1C FEFF FFFF 2093 DEVSADR DC -1 
2094 * 
001320 0090 2095 DEVINT DC ' «=«X"O* 
2096 * 
001822 0090 2097 INTLVL DB 0,0 
20S . 
2099 * 
001524 BDAF 4445 4C20 3332 2100 TITLE be C*MNODEL 3220 WRITEABLE CONTROL STORE TEST C*-232R00" 
001B2C 3230 2020 5752 4954 
001B34 4541 424uC 4520 434F 
001B3C 4E54 5S24F 4C20 5354 
OO1B44 4F52 4520 5445 5354 
O01B4C 2030 362D 3233 3252 
007854 3030 
001B56 ODOA 2101 DCX ODOA 
2102 * 
001B58 PEGO 2103 DEFTESTS DC X'FESO*",X*0000° DEFINEES TESTS 0,1.-6,/9 AS DEFAULT 
OO1BSA 9000 
2704 * TESTS 
2105 * 
001B5C 0009 2106 §SAXTST BC H'S¢ DEFINES TEST # 9 TO BE THE LAST TEST 
2107 * 
2108 * TESTS TABLE FOR A TEST PROGRAM COMPRISED OF 10 TESTS 
2109 * 
007860 2710 ALIGN ADC MANDATORY FOR TAR&T 32 ! 
007B60 8000 13888 2111 TESTS be TESTO, TEST1,7TEST2, TEST3, TESTU, TESTS, TESTE, TEST], TESTS 
OC1B64 6900 1c04 
001B68 9000 1C6C 
OO1TBEC 0000 1D26 
0013870 0000 1D76 
001B74 0000 1E3C 
001B78 0000 1TEEE 
001B7C 0000 20C0 
001B80 9000 2152 


0017884 0000 217A 2112 DC TESTS 


aw 


Nee 
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EXEC - ETPE ROYWPFO TEST MODULES 


2174 xe & © & kK wR & & eH eR wR we Ke Ke kK re Ke Ke Ke Ke Ke we ek ek he 
2115 * * 
2116 * Poe Se JS Pe Le “ore * 
2017. >* * 
2118 * THE ADDRESS CF ERCH FULLWORD OF WCS IS * 
2119 * WRITTEN AS DATA INTO THAT FYLLYORD. EACH * 
2120 * FULLWORD IS THEN EAD OUT AND CHECKED. THEN * 
2121 * THE COMPLEMENT OF TEE ADDRESS CF EACH FULL- * 
2122 * WORD OF WCS IS wEITTEN AS DATA INTO THAT * 
2123 * FULLWORD. EACH FELIWO3D IS TYEN BEAD OUT AND * 
2124 * CHECKED. * 
2125 * * 
2126 _* x & ke ke we we eK we eK we Ke eK we KK kK kK KK we ke KK re ke he 
2127 * 
0000 1888 2128 TESTO Fou 
2129 * 

001B88 0744 2130 TESTOO xR ZERC, LEPC 

001B8A 4OUO 2856 2131 TH  ZERO,PASS 

001B8E 4870 1816 2132 LH DAT, TCSLO WCS START ADRS 

001892 5074 2A9C 2133 TSTOOA ST DAT, T¥2GE( ZERO) WRITE ADDRESS 

001396 2671 2134 AIS DAT,1 AS DATA INTO 

001B98 2644 2135 AIS  ZERC,4 WCS IMAGE 

OO01B9A C540 C040 2136 CLHI ZERC,64 

001B9E 2086 =001B92 2137 BLS TSTGCA 
2138 * 

001BA0 0744 2139 XR ZERO, ZERO 

OO1PA2 W1FO 25F8 2140 BAL  LINK,WRITD COPY IMAGF TO DCS 

001BA6 W1FO 260A 2141 BAL  LINX,=ZADD READ IT BACK 
2142 * 

OO1BAA 4870 2856 2143 LH DAT, FASS 

OO1BAE CA70 0010 2144 AHI DAT, 14 

001BB2 4070 2856 2145 STH  DAT,FASS 

001BB6 4A70 1816 2146 AH DAT,>2SLO 

0014BBA 4570 1822 2147 CLH DAT, DCSHI SEE IF DONE 

001BBE 4280 1892 2148 BL TSTCCE LOOP 
2149 * 

001BC2 4040 2856 2150 STH  ZERC,PASS 

001BC6 4870 1816 2151 LH DAT, DCSLO WCS START ADRS 

O01BCA 0817 2152 TSTOOB LR 1,DAT WRITE COMPLEMENT 

001BCC C710 FFFF 2153 XHI «1, X'FRFF' OF ADDRESS 

901BDO 5014 2A9C 2154 ST 1, INASE( ZERO) AS DATA INTO 

CO1BD4 2671 2155 AIS DAT, 1 WCS IMAGE 

001BD6 2644 2156 AIS ZERC,4 

001BD8 C540 0040 2157 CLHI ZE2C,64 

001BDC 2089 =OO1ECA 2158 BLS  TSTOCE 
2159 * 

OO1BDE o744 2160 XR ZERG,ZEFO 

001BEO 41FO 25F8 2161 BAL LINE, #2ITD COPY IMAGE TO DCS 

001BE4 41FO 260A 2162 BAL  LINK,2EADD READ IT BACK 

001BE8 4870 2856 2163 LH DAT, PASS 

0014BEC CA70 0010 2164 AHI = DAT, 16 

001BFO 4070 2856 2165 STH DAT,PASS 

GO1BE4 4A70 1815 2166 AH DAT, 2CSLO 


( a ( | 
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EXEC - ETPE ROSPO TEST MODULES 


OO1BES 4570 1822 2167 CLE DAT, DCSEI 

OO1BFC 4280 1BCA 2168 BL TSTOOB 

001C00 4300 OFC4 2169 E TSTEND EXIT 
2170 x * & & & & & & & & & kK ke Ke Ke eK Ke & HK Ke Ke KK kK 
2171 =* * 
2172 * TEST FODULE 0.1 * 
2173 * * 
2174 * ZEROS ARE WRITTEN INTO ALL WCS. THEN A FULL- * 
2175 * WORD IS READ, AND TESTED FOR ZERO AND ONES * 
2176 * ARE WRITTEN INTO THE NEXT SEQUENTIAL FULL- * 
2177. * WORD. WHEN THIS IS FINISHED, EVERY EVEN * 
2178 * ADDRESS CONTAINS ZERO AND EVERY ODD ADDRESS * 
2179 * CONTAINS ONES. THEN EACH ODD LOCATION IS * 
2180 * READ AND TESTED FCR CNES AND ZEROS ARE * 
2181 * WRITTEN INTO THE PREVIOUS EVEN LOCATICN. * 
2182 * * 
2183 x & & & & © w& & & & &K FY &K KE KE kK KE &K KK KK KE KR KK KK 
2184 * 

0000 1C04 2185 TESTI EQU * 

2186 * 

001C04 4K1FO 25CC 2187 TESTO1 BAL LINK,CLRIMJ CLEAR IMAGE 

co1ces Q1FO 25E0 2188 BAL LINK,COPY CLEAR ALL WCS 
2189 * 

0071Cc0C &B8D0 1816 2190 LH ADRS,DCSLO 

001C10 o80D 2191 TSTO1B LR O,ADRS - ADDRESS 

001012 0711 2192 YR 1,1 

001C14 082D 2193 LR 2,ADES 

901016 0733 2494 xR 3,3 
2195 * , 

001C18 5570 2828 2196 LA DAT,DSAYE SET-UP 

COICIC E6CO 2850 2197 LA POINT, ONES POINTERS 

901020 £827 2198 RDCS DAT READ ZEROS 

001022 2601 2199 RAIS 0,1 GET ODD ADDRESS 

001C24 Es80c 2200 XDCS POINT WRITE ONES 
2201 * 

001C26 O7EE 2202 ¥R TST,TST DATA EXPECTED 

601C28 5870 2828 2293 t DAT,DSAVE DATA CBSERVED 

901C2C U1FO 267C 2204 BAL LINK ,CEKDAT TEST IT 
2205 * 

001C30 26D2 2205 AIS ADRS ,2 RUMP ADDRESS 

901C32 45D0 1822 2207 CLH ADRS,DCSHI 

001036 4280 1010 2208 BL TSTO1B 
2209 * 

OG1C3A 48DO 1816 2210 LH ADRS,DCSLO 

001C3E 080D 2211 TSTO1IC LR 0,ADRS ADDRESS 

o01TCHO 0711 2212 ¥R 1,1 

001CK2 082D 2213 LR 2,ADRS 

oo1cuYy 0733 2214 XP 3,3 

001C46 2621 2215 ars 261 
2216 * 

001C48 5670 2828 2217 LA DAT,DSAVE SET-UP 


O0TCHC E6cO 284C 2218 LA POINT, ZEROS POINTERS 


MODEL 3220 


WRITEABLE CONTROL 


STORE TEST 


EXEC - ETPE ROYPO TEST HODULES 


0o071C50 
001C52 


o01C54 
091C56 
OO1CSA 


COICSE 
001C60 
O01C64 
001C68 


OO1CEC 


001C72 
O91C76 
001C78 
OC1CTA 
OO1CTE 


001C80 
001C84 


001C88 
COIC8A 
001C90 
oo7cey 
001096 
9001C98 
001C9C 


O01CER 
CO1CA2 


OO1CAG 
OO1CAS 


E827 
E80C 


25E1 
5870 
41FO 


2€D2 
45D0 
4280 
4300 


0000 


F870 


5074 
2644 
1071 
c540 
2086 


41FO 
41FO 


0744 
F870 
5074 
2644 
1071 
C540 
2086 


41FO 
41FO 


O744 
F870 


2828 
267C 


1822 
1C3E 
OFCY 


1C6C 
8000 


2A9C 


0040 


25E0 
263E 


0000 
2A9C 


6040 


25E0 
263E 


TEFF 


OC00 


=001C72 


€000e 


=001C9C6 


FFF 


LOWEST 


CHECKE 


EST2 


*ro¢ € + © + + tH te OF OF He OF 


TSTO2B 


T 


06-232N91RO0A13 
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DAT READ ONES 
POINT WRITE ZEROS 
TST, 1 DATA EXPECTED 
DAT,DSAVE DATA OBSERVED 
LINK ,CUKDAT TEST IT 
ADFS,2 RUMP ADDRESS 
ADRS,DCSHI 
TSTC1C 
TSTESD EXIT 


aa KFODUL 


THE DATA PATTERNS 80000000, 
ee 200000002, 
EVERY 16-FULLWORD 


E 


xe ke & © we we we we ke Ke kK we eK Ke ke kK Ke kK kK kK kK kK 


0 2 


4O0000000,... 
00000001 ARE WRITTEN INTO 


BLOCK OF WCS FROM THE 


WCS ADDRESS TO THE HIGHEST. THE 


DATA WRITTEN IS THEN READ BACK AND 


De. THEN THE COMPLEMENT OF THE TEST 


FOU 


PATTERN IS LOADED INTO 
HIGHEST WCS ADRS 
THE DATA IS READ 


DAT,Y*80000000° 


DAT, IMAGE( ZERO) 
ZERO,4 

DAT, 1 

ZERC,64 

TSTO2A 


LINK ,COPY 
LINK,READCS 


ZERO,ZERO 

DAT, Y¥*G00086900" 
DAT, IMAGE( ZERO) 
ZERO,4 

DAT, 7 

ZERG,64 

TSTO23 


LINK ,COPY 
LINK,READCS 


ZERG,ZERO 
DAT, Y'7FFFFFFF®* 


NCS STARTING AT THE 
AND ENDING AT THE LOWEST. 
BACK AND CHECKED. 


we & we we ee we we we we Ke kK kK eK kK eK kK ke KK KK KK eK 


STORE PATTERN 
BUEP INDEX 
SHIFT PATTERN 


PROPAGATE THROUGH 


+ Ft + Ht F + HF FH FH HF HF 


RCS 


COMPARE WCS TO IMAGE 


STORE FATTERN 


( — ( — 
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te 


EXEC - ETPE ROSPO TEST MODULES 


GO1ICAE 5074 2A9C 2273 TSTO2F Sst DAT, IMAGE( ZERO) SET-UP IMAGE 

OO1CB2 1071 2274 SRLS DAT,1 SHIFT PATTERN 

OO1CB4 F670 8900 0090 2275 OI DAT,Y'80000000' 

OO1CBA 2644 2276 AIS ZERO,4& 

OO1CBC c540 0040 2277 CLHI ZERO,64 

001CCO 2085S =QO1CAE 2278 BLS TSTO2F 
2279 * 

e01cc2 4800 1822 2286 LH 0,DCSHI 

001CCE6 E670 2860 2281 TSTO2D LA DAT, PATEERN 

OO1CCA 0711 2282 TSTO2E XR 1,1 WRITE PATTERN 

oo1ccc 2791 2283 sIs 0,1 TO BOTTOM 

OO1CCE E807 2284 WDCS DAT FROM TOP OF WCS 

oo1CDO 2674 2285 AIS DAT,4 

001CD2 C570 28A0 2286 CLHI DAT, PATERN+64 

001CD6 2086 =C001CCR 2287 BLS TSTOZE 

001CD8 4500 1816 2288 CLY 0,DCSLO 

001CDC 228B =001CCE 2289 BNLS TSTO2D 
2290 * 

OO1CDE 41FO 2550 2291 BAL LINK, COPY 

O01CE2 41FO 263E 2292 BAL LINK,READCS COMPARF ALL OF ¥CS TO IMAGE 
2293 * : 

OO1CES 0744 2294 XE ZERO,ZERG 

OO1CES F870 FFFF 7FFF 2295 LI DAT, Y‘FFFFVFFF' 

OO1CEER 5074 2A9C 2296 TSTO2C Sst DAT, IMAGE( ZERO) 

COICF2 EE7O 0001 2297 SRA DAT,1 

OO1CFS6 2648 2298 AIS ZERO, 

OO1CF8 C540 0040 2299 CLHI ZERC,64 

OO1CFC 2087 =O01CEE 2300 BLS TSTO2C 
2301 * 

OO1CFE 4800 1822 2302 LH 0,DCSHI 

001D02 E670 28A0 2303 TSTO2H LA DAT, FATERN+64 TO WRITS PATTERN 

001D06 0711 2304 TSTO2I XR 1,1 FROM TOP TO BOTTOM 

001D08 2701 2305 sIs 0,1 

OO1DOA F807 2306 WDCS DAT 

001D0C 2674 2307 AIS DAT,4 

OO1D0E C570 2850 2308 CLYI DAT,PATFERN+123 

601D12 2086 =O001DCE 2309 BLS TSTO2ZI 

001D14 4500 1816 2310 ' CLH C,DCSLO 

001D18 228B =OC1P02 2311 BNLS TSTO2H 
2312 * 

OOIDIA 41FO 25E0 2313 BAL LINK,CODY 

OO1D1E 41FO 263E 2314 BAL LINK, READCS 

001D22 4306 OFC4 2315 3 TSTEND EXIT 
2316 x & ke we we Ke re KK kK eK Ke Ke Ke ere Ke Ke Ke Ke KK kr Kh hh KhUKLhlUhK 
2317 * * 
2318 * TEST KRFODULE Cc 3 * 
2319 * * 
2320 * ZEROS ARE WRITTEN INTO ALL WCS. THEN FACH * 
2321 * SUCCESSIVE FULLKGRD IS READ, CHECKED FOR * 
2322 * ZERO AND THEN RE-WRITTEN WITH ONES. ALL WCS * 
2323 * IS THEN TESTED FOR ONES. THEN, STARTING at * 
2324 %* ‘THE TOP OF WCS, EACH FULLWORD IS READ. * 
2325 * CHECKED FOR ONES AND THEN REWRITTEN WITH * 
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001D26 
OO1D2A 


OO1D2E 
001D32 
001D34 
001D38 
OO1D3A 


001D3E 
001D40 
OO1D44 


001D46 
001D48 
OO1D4C 


001D50 
: 001D54 
001D56 
001D58 
O007D5C 
901D5E 


( 001D62 
001D64 
001D68 
OO1D6A 


001D6E 
f 001D72 


( 001D76 


J 


ETPE 


RO4PO 


1D26 


25CC 
25E0 


D0 1816 
TFO 25AE 
0 267C 


1822 


25CE 
263E 


1822 


25AE 


267C 
1816 


25CC 
263E 
OEC4 


oG00 1B76 


74a 


TES™ EOQDULES 


=001D32 


=0011B56 


WRITEARLE CONTROL STORE TEST 


2326 
2327 
2328 
2229 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
23593 
2360 
2361 
2352 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2379 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 


06-232E31R00A13 
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08:14:57 


08/10/52 


* ZERO. FINALLY, ALL WCS IS TESTED FOR ZERO 
* * 
xk &€ & & & & KE KH kK wR we we eK eK kK Ke KK KK kK Ke ke oe OK he 
* 
TEST3 EQU * 
« 
TESTO3) =AL  LINK,CLRIMJ CLEA® IMAGE 
EAL  LINX,COPY CLEAR ALL WCS 
* 
LE ADRS,DCSLO 
TSTO3A ICS  TST,1 (UPPPFFEPE 
PAL LINK, RANDW READ 7EROS,WRITE ONES 
XE TST, TS? 
PAL  LINK,CHKDAT SEE IF ZEROS READ 
* 
AIS  ADRS,1 BUMP ADDRESS 
CLH  ADRS,DCSHI 
ELS  TSTO3A 
* 
ue DAT, 1 FILL IMAGE 
BAL  LINK,CLRILP WITH ‘FFFRFFFF! 
SAL  LINK,READCS TEST FOR ALL ONES 
* 
* 
LH ADRS ,DCSHI 
SIS ADRS,1 
TSTO3B. ER TSt,TSt 
BAL  LINK,RANDW READ CNES,WRITE ZEROS 
Les» “StS? ,4 
BAL  LINK,CHKDAT SFE IF ONES READ 
* 
SIS ADRS,1 BUMP ADDRESS 
CLH  ADRS,DCSLO 
BNLS TSTO3B 
* 
BAL LINK,CLRIMJ 
BAL LINK,READCS TEST FOR ALL ZEROS 
B TSTEND EXIT 
kee ke ke kK Ke & we we kK we Ke KR eK KE kK KK Ke kK KC kK wrk kK 
* * 
* TEST MODULE 68 * 
* * 
* ZEROS ARE WRITTEN INTO ALL OF ¥CS. THEN ONES * 
* ARE WRITTEN INTO ONE PAGE AT A TIME AND ALL * 
* OTHER PAGES ARE TESTED FOR ZERO. THE TEST * 
* THEN REPEATS WIT ALL ONES IN WCS AND 2 PAGE * 
* AT A TIME EQUAL TO ZERO. * 
* * 
ex ke & & & & & KE kK Ke HK kK RK &K Ke Ke Ke &e we ke we Ke ke kK 
*& 
TESTA EQU* 
* 
ER ZERO,2ERO 
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001D78 


OO1D7C 
001D80 
001D84 


001D88 


Ananan 
MU TVOU 


001D90 


OO1D94 
001D98 
OO7D9C 
OO1DAO 
OO1DAY 


OO1DAS 
OOTDAA 
OOTDAC 
001DBO0 
OO1DB4 


O001DBE 
OOIDBA 
OO01DBE 


001DC2 
001BC6 
CO1DCA 
OO1DCC 
O51DD0 
O001DD4 
0O01DD8 


OO1DDC 
001DE0 
OO1DE4 
OO1DE8 
OO1TDEC 
OO01DFO 
OO1DF2 
OO1DF6 


OO1DFA 
OO1DFE 


001E02 
OO1EO4 
OO1E06 
OO1EOA 
OO1E0E 


001E10 


ETPE 


4O4G 


WRITEABLE CONTROL STORE TEST 


ROSPO 
2285C 
285C 
25CE 
25E0 


1816 


3 285A 


2858 


285C 
FFFF 
25CE 
2A9C 
285A 


9010 


G GOFF 


265C 
25CE 
2856 


2856 
2858 


0100 
2856 
2254 
IDFA 


2604 
2856 
0010 
2856 
OOFF 


2854 
19C2 


» 285A 


2A9C 


0010 
OOFF 


285A 


TEST MODULES 


=001DA8 


=001DBC 


=Q01DFA 


=OO0TEO2 


2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
24048 
2405 
28905 
2407 
2408 
2409 
2410 
2414 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2426 
24525 
2426 
2427 
2423 
2429 
2430 
24371 


* 


TSTOSA 


* 


TSTO4B 


* 


TSTCSC 


* 


TSTOSD 


* 


TSTOYE 


( 


O6-232N971RGOA13 PAGE 49 


ZERO, FLIP 


DAT, FLIP 
LINK,CLRILP 
LINK,COPY 


POINT,DCSLO 
POINT, IPAGE 
ZERO,DPAGE 


DAT,FLIP 
DAT, X*FFFF* 
LINK,CLRILP 
DAT, IMAGE 
QO, IPAGCE 


1,15 

DAT 

0,16 
0,X*OOFF' 
TSTO4C 


DAT, FLIF 
LINK,CLRILP 
ZERO, PASS 


DAT, PASS 
DAT,DPAGE 
TSTOUE 
DAT,256 
DAT,PASS 
DAT,DELTA 
TSTO4F 


LINK,REAPD 
DAT,PASS 
DAT, 16 
DAT,PASS 
DAT,X*OOFF' 
TSTO4F 
DAT,DELTA 
TSTOLD 


9,IPAGE 
DAT, IMAGE 


1,18 

DAT 

C, 16 
0,X*OOFF® 
TSTOUG 


0,IPAGE 


G8:17:57 05/10/82 


SET IMAGE TO 
BACKGROUND VALUE 
PROPAGATE THROUGH WCS 


ui 


START ADR 


SET IMAGE EQUAL 
TO COMPLEMENT OF 
BACKGROUND PATTERN 


WRITE A PAGE OF 
a€CS EQUAL TO 
COMPLEMENT OF 
BACKGROUND PATTERN 


IMAGE=BACKGROUND 


TEST ALL OTHE 
PAGES FOR BACKGROUND 


TEST 16 FULLWOCRDS 
SEXT 16 


FINISHED A PAGE? 
LOOP 


NEXT PAGE 


D 


ESTORE PAGE 
TO BACKGROUND 
VALUE 


NEXT PAGE 


= 
4 
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( EXEC - ETPE ROUPO TEST MODULES 
; O01E14 4870 2858 2432 LH DAT, DPAGE 
{ CO1E18 CA70 0100 2433 AHI DAT™,256 
Q01E1C 4070 2858 2434 STH DAT,DPAGE 
; 001E2C 4570 2854 2435 CLH DAT,DELTA 
\ D01E24 4280 1D94 2435 BL TSTOUB LOOP 
2437 * 
. 2422 * END OF PASS 
{ 2432 * 
001E28 4870 285C Quad LH DAT, FLIP COMPLEMENT 
. QO1E2C C770 FFFF 2444 XHI DAT,X'FEEF* BACKGROUND 
001E30 4070 285C 2442 STH DAT,FLID PATTERN 
OO1E34 4230 1D7C 2443 BNZ TSTOM4A DO 2ND PASS 
001E38 4300 OECY 2ueL B TSTEND EXIT 
{ 2445 x & & & & kK we we we we kK Ke eK Ke Ke Ke ke Re KK OK OK hh we Ke UK 
2446 * 
2447 * TEST SOL TES 65 * 
( 24una * * 
2463 * ALL WCS IS LOADED WITH 'S55555555', THEN =ACH * 
2459 * SUCCESSIVE FULLWORD IS R2£AD OUT, TESTED FOR * 
‘ 2451 * 55555555" AND RE-WRITTEN WITH ‘AAAAAAAA'. * 
2852 * THE FULLWORD IS READ AGAIN AND TESTFD FOR * 
2452 * ‘*AABAAAAA', AND FINALLY IS RE-WRITTEN * 
2655 * WITH *55555555°. * 
2455 * * 
2456 * NEXT, ALL ONES ABE WRITTEN INTO WCS. THEN, * 
f 2457 * FOR EACH WORD OF WCS, THE PATTERNS 7FFFFFFF, * 
2658 * BFFFFFFF, eeee , FFFFFFFD, AND FFFFFFFE ARE * 
2459 * WRITTEN, THEN READ BACK AND TESTED. THE * 
f 2469 * FULLWORD IS THEN RE-WRITTEN WITH ALL ONES. * 
2461 * THE SEQUENCE IS THEN REPEATED WITH ALL ZEROS * 
2u52 * IN WCS, AND A SINGLE BIT SET TO 1. * 
( 2463 * * 
24654 x &k& & & ee eK we ke ee Ke Ke EK we Ke KE kK Ke Ke eK kK Ke Ke Ke OK * 
; 2465 * 
{ 0000 15£3C 2466 TESTS EQU * 
2467 * 
001E3C F870 5555 5555 2468 LI DAT, ¥'55555555° FILL IMAGE 
‘ OO1E42 41FO 25CE 2469 BAL  LINK,CLRILP WITH '55555555' 
OO1E46 41FO 25E0 2470 BAL  LINK,COPY COPY IMAGE TO WCS 
2471 * 
¢ OOVESA 48D0 1816 2472 LH ADRS,DCSLO 
OO1EUE F8EO AAAA AAAA 2473 TSTOSA LI TST,Y'AAARAAAA' 
O01E54 41FO 25AE 2u74 BAL  LINK,RANDW READ FIVES, WRITE ARLES 
é 001258 P8EO 5555 5555 2475 . EI TST, Y'55555555' 
OO1ESE 41FO 267C 2476 BAL  LINK,CHKDAT TEST IF FIVES READ 
2677 * 
( 001E62 W4FO 25AE 2473 BAL LINK,RANDW READ ABLES,WRITE FIVES 
001E66 F8EO AAAA AABA 2479 Lr TST,Y*AAAAAARA' 
( 001F6C 44FO 267C 2439 BAL  LINK,CHKDAT TEST IF ABLES READ 
2481 * 
OO1ETO 26D1 2422 ATS ADRS,;1 BUMP ADDRESS 
001E£72 45D0 1822 2483 CLH  ADRS,DCSHI 
( OO1E76 4280 1E4E 24384 BL TSTOSA 
t 


MODEL 3220 


OO1TE7TA 
OOTETC 
cO1E80 


OO1E84 
001E88 
OO1ESE 
OO1E92 


001E96 
OO1ESA 
OOTESE 
OO1EAO 
COTEA2 
OO1EA8 


OOTEAA 
OOTEAC 
OO1EBO 
OCiEBS 


OO1EERS 
OUTEBC 


OO1ECO 
OOTECY 
OOTECA 
OOTECE 


COTED2 
OOTEDE 
OOTEDS 
OOTEDA 


OOTEDC 
OO1EDE 
OO1EE2 
OO1EE6 
OO1EEA 


RO4PO 


1358 
1822 
1ECu 
OECY 


0000 1EEE 


@ARITEABLE CONTROL 


TEST MODULES 


FFFF 


=QO1FAA 


0000 
=O01E8E 


C006 


=OO1EDC 


=Q01ECA 


STORE 


TEST6 EQU 


( 


* 


08:11:57 


ad 
pwy 


IS EXECUTED FROM 
IN WCS. 


TEST BRANCH & YDP1 IS 


TEST 06-232H91R00A13 PAGE §1 
* 
LCS. DAT, 1 
BAL LINK,CLRILP 
BAL LINK,COPY 
* 
LH ADRS, DCSLO 
TSTOSB LI TST,Y'7FFFFFFF* 
TSTOSC BAL LINK,WANDR 
BAL LINK,CHKDAT 
* 
L TST, TSAVE 
CLHI TST,X'FFFF* 
BES TSTOSD 
SRLS TST,1 
OI TST,Y*soocco0d' 
BS _ TSTOSC 
* 
TSTOSD AIS ADRS,1 
BAL LINK, TSTERK 
CLH  ADRS,DCSET 
BL  TSTOSB 
*x 
BAL  LINK,CLRI¥NJ 
BAL  LINK,COPY 
* 
LH = ADRS, DCSLO 
TSTOSE LI  TST,¥*s0ooo000" 
TSTOSF BAL LINK, WANDR 
BAL  LINK,CHKDAT 
* 
if TST, TSAVE 
BZS  TSTOSC 
SRLS TST,1 
BS TSTOSF 
. . 
TSTOSG AIS  ADRS,1 
BAL LINK, TSTRK 
CLH  ADRS,DCSHI 
BL  TSTOSE 
2 TSTEND 
i a a a a 2 
* 
* ie eae a oe a 
* 
* A MICRO-CODE SUBROUTINE 
* EACH AVAILABLE FULLWORD 
* INSTRUCTIONS ARE USED TO ACCESS THE ROUTINE. 
* 2 WICRODE ROUTINE TO 
* ALSO EXECUTED. 
* 
xe & & & KF & & we He & KE wk we KE KK KK we we Ke eH kK kK OK 
* 


05/10/82 


FILL IMAGE 
WITH ‘FFFFFFFF* 
COPY IMAGE TO WCS 


MMI Tay 


READ PATTERN 


PATTERN CAME BACK 


WRITE 


SEE IF 


AND 


NEXT LOCATION 
SHIFT PATTERN 
SET MSB 
LOOP ON LOCATION 
NEXT LOCATION 
IF BREAK EXIT 


CLEAP IMAGE 


COPY IMASE TO WCS 
PATTERN . 
WRITE AND READ PATTFRN 


SEE IF PATTERN CAME BACK 


NEXT LOCATION 
SHIFT PATTERN 
LOOP ON LOCATION 


NEXT LOCATION 
IF BREAK 


2EXIT 
EXIT 


0 6 


BDCS AND ECS 


+ + + + + F + F HF FF FH 
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EXEC - ETPE ROWPO TEST MODULES 


2538 * 
OO1EEE C890 0800 2539 TESTO45 Lat O,X*800" GET ¥CS LOW ADRESS (X'800') 
OOTEF2 4000 1F3C 2540 TSTO6H STH 0, TSTO6D+t+2 
OO1EFE C870 E902 2544 LHI DAT,X*ESO02° INITIALIZE 
OC1IEFA 4070 1F18 2542 STH DAT, TSTO6B ECS INSTRUCTION 
OO1EFE c8co 0010 2543 LHI POINT,X*060Q10' FCS INCREMENT 
O001FO2 4000 2856 2544 STH O,PASS 
2545 * 
001F06 E670 2040 2546 LA DAT,GLOBAL ADDRESS OF MICRO-CODF 
OO1FOA C810 OOCOF 2547 LHI 1,15 16 FULLWORDS 
OO1FOE 5807 2548 WOCS DAT WRITE FIRST 16 WORDS 
2549 * 
OO1F 19 247F 2550 LIS DAT,15 
2551 * 
O01F 12 5070 2828 2552 TSTO6A ST DAT,DSAVE 
001F16 0722 2553 XR 272 
O01F18 £902 0001 2554 TSTO63 ECS 0-1(2) ENTER CONTROL STCRE 
OO1FIC 0527 2555 CLR 2,0AT 
OOTFITE 2338 =001F34 2556 BES TSTC6C OK 
001F20 C870 3132 2557 LHI DAT,C*12° 
OOTF24 4070 1725 2558 STH DAT, ERRNG 
001F28 C870 0012 2559 LHI DAT, X‘'12° 
O001F2C 2560 CNOP 4 ALIGN CALL PARAMETER 
OO1F2C 4H1FO 26F6 2561 BAL LINK, TALLI 
O01F30 5870 2828 2562 “L DAT,DSAVF 
2563 * 
OO1F34 61CO 1F18 2564 TSTO6C AHM POINT, TSTO6B INCREMENT FONCTION 
001538 0722 2565 XR 272 
OO1FSA £502 0800 2566 TSTO6D BDCS 0,xX*800°(R2) BRANCH TO CONTROL STORE 
OO1F3E 0527 2567 CLR 2,DAT 
QO1F40 233C =001F58 2568 BES TSTO6E OK 
OO1TF42 C870 3133 2569 LHI DAT,C*13° 
OO1F46 4070 1472E 2570 STH DAT,FRRNC 
OO1F4A C870 0013 2571 LHI DAT, X"13° 
OO1FKE 0200 2572 CNOP 4 ALIGN CALL PARAMETER 
001F50 41FOQ 26F6 2573 BAL LINK, TALLI PRINT “ERROR TT13' 
OO1F54 5870 2828 2574 L DAT,DSAYE 
2575 * 
OO1F58 2441 2576 TSTO6E LIS ZERO, 1 
OO1FSA 6140 1F3C 2577 AHN ZERO,TSTO6D+2 
OO1FS5E 2771 2578 SIs DAT, 1 DECREMENT TEST RORD 
O01F60 4310 1F12 2579 BNM TSTO6A LOOP 
2580 = * 
2581 * FIRST 16 WORDS TESTED 
2582 * 
OO1F64 O744 2583 XR ZERO,ZERO 
00 1F66 4800 2856 2584 LH 0,PASS 
COO1F6A CA00 0010 2585 AHI 0,16 
OO1F6E 4000 2856 2586 STH 0,PASS NEXT 16 WORDS 
001F72 CA00 0010 2587 AHI 0,16 
NOTE 76 4500 1822 2588 CLH 0;-DCSHT 
OO1F7A 4380 1FB2 2589 BNL TI6BRN NO MORE YCS, BRANCH 
2590 * 


tm 
4 x 5 J 8 r 
4a 


MODEL 3220 


EXEC 


OO1FT7TE 
001FaO 
OO1FS84 
OO1F86 
OO1FeCc 
OO1F90 
OO1FS4 
001F96 
OOTF9A 


O07F9C 
OOTFAO 
OOTFAS 
CO1FAS 


OO1FAA 
OOVFAE 


OO1FB2 
OOVFSS 
OOTFEA 
COTFBC 
COTFBE 
CO1FCO 
GCOTFCY 
OOTFCA 
OOTFCE 
OO7FDO 
OO01FD2 
OO1FDY 
OOTFDS 
OO1FDC 
OOIFDE 
OO1FE2 
OCIFEY 
OO1FE6 
COIFEA 
OO1FEE 
OO1FFO 
OO1FFY4 
OCOTPFS 


OD4FFC 
002000 
002004 
002008 


- ETPE ROWPO 


2856 


OFQ2 
2080 


0019 


OO40 


1816 
OOOF 
2080 


2856 
TEF2 


1FB2 
0800 
2856 


2034 
OEO00 
2856 


2024 
2024 


2856 


g000 
2034 


TFFC 
0001 
200C 


30414 
172E 
OOOA 
26F6 


TEST MODULES 


6000 


=001F8C 


6002 


WRITEAPLE CONTROL STORE TEST 06-232M91R00A13 


* GENERATE ECS 


* 


TSTOSF 


THE WCS. 

EXECUTING 
TIS6BRN EQD 
LHI 
STH 
LIS 
Lis 
LIS 
STA 
Li 

Li 

AIS 


REG 
TH 


+ eH 


TT16 NEW 


4 
we 


x OY 


nom 
a) 


Mort Bd rz! 


mOwrnNwr 


te 
toe) 
- 


STH 


( 


PAGE 53 


VECTOR TABLE 


08:11:57 


C5/10/82 


POINT, POINT 

DAT,PASS WCS ADDRESS 

DAT,4 POSITICN TO ADDRESS FIELD - 
DAT, Y*OEO20000° BUILD U-CODz *BAL* INSTR 
DAT, ECSVCT( POINT) 

DAT, X'OO10" INCREEEST ADDRESS FIELD RY 7 


POINT,4 
POINT,64 
TSTO6F 


0,DCSLO 
1,15 

DAT, ECSVCT 
DAT 


0,PASS 
TSTCEH 


ISTERS 13,174,15 
E MICRODE . 
* 
RO,xX*800" 
RO,PASS 
213,0 
R14,0 
R15,0 
R13,ERRIND 
R1,Y*O0EO000002° 
22,PASS 
22,3 
R2-4 
R1,R2 
R1,BRAWCS 
DAT,BRAWCS 
1,3 
3,PASS 
DAT 
R5,R0 
13,0(R5) 
R13,ERRIND 
R13,813 
TI6ERR 
Ri4,1 
TIOBRN1 


DAT,C'OA* 
DAT,FRRNO 
DAT,X*OA* 
LINK, TALLI 


ARE STORED 


BRANCE 
SAYE 
Ts & 


be bey 

ro 

Wi “~ 

ss a Be 
wh TTY wa 

hy to bu 


ERROR 


4 


ime] 


to 


THIS TEST CHECKS BRANCHING & INCRMENTIN YD FIELD WITHIN 


AT ERRIND AFTER 


* 
tH 
Oo) 
ie] 
lap) 
i?) 
Oo 
ie] 
V4 
1 


TO CONTROL 
R1U,R1#5 


STSR 


AOA kekik 


PRINT OF TALLY ERROR 


F (YD 


MODEL 


3220 
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EXEC - ETPE ROYPO 


OO2Z00C 
002010 
002012 
002616 
002018 
Q0201C 
002020 


002024 
002028 
00202C 
002030 


002034 


002040 
002040 
002040 
002044 
002048 
d0204C 
002050 
002054 
002058 
00205C 
002060 
002064 
002068 
00206C 
002070 
002074 
002078 
00207C 


002080 
002084 
002088 
00208C 
002090 
002094 
002098 
00209C 
OO020A0 
QO20A4 
O0020A8 
OO20AC 
0020B0 
O020B4 


4870 
2674 
4070 
2674 
4570 
4380 
4300 


O©00 
0068 
006C 
DO68 


0009 
9009 
0009 
0009 
0099 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
bOE6C 


OFO2 
OEO2 
OEO2 
OEQ2 
0EO2 
QEO2 
OEO2 
QEG2 
QEO2 
OEO2 
OE02 
QFO2 
OEO2 
OEO2 


DOO1 
DOO1 
DO01 
D001 
DOO1 
DOO01 
DOO1 
DO01 
DQO01 
DO01 
D001 
DOG1 
D001 
DOO1 
D001 
0170 


8100 
817110 
8120 
8130 
8140 
8156 


8169 


8170 
8180 
8190 
81A0 
RTBO 
81C0 
81D0 


TEST MODULES 


. 


* 


TTA BRN 1 


* 


BRAWCS 


* 


ERRIND 
* 


* GLOBAL 


* 


GLOBAL 


* 


08:11: 


Li DAT, PASS 
AIS DAT,4 
STH DAT,PASS 
AIS DAT,4 
CLH DAT, DCSHI 
BNL TSTEND 

E TT16.NEW 
[cy 0F608032 
DCY CO68800F 
DCY 00£C0172 
Bex Dd0638001 
DS 12 
MICROCODE 
ALIGN 4 

136) 15 

DCY 00095001 
DCY 0009D001 
DCY 0009D001 
DCY 0009)D001 
DCY 0009001 
DCY 9009D001 
DCY 0009D001 
pcyY 9099D001 
ncY 00099001 
DCY o009D001 
ECcY 90095001 
cy 0009D001 
DcY 0009D001 
DCY 0009D001 
DCcY 0009D001 
DCY BQ6CO170 


* ECS VECTOR 


* 


ECSVCT 


DCY 


POINTS, INITIAL VALUES 


0E028100 
0£028110 
0E028120 
C£022130 
OFO28140 
0E028150 
OFO28160 
0E028170 
0E028180 
0F028190 
CEO281A0 
QEO281B0 
QFO281C0 
OF0281D0 


ty 
J 


57 05/10/82 


INCREMENT WCS ADDRESS 


EXECUTED VIA ALL Wes 
YES, EXIT 
LOOP BACKX 


B *+3,Y0>R1 

LI YD,F 

L NULL,NULL,YDP1 
LI YD,1,18 


REGISTER SAVE ARERR 


AI YS,Y¥S,1 
AI YS,Y¥S,1 
AI YS,YS,1 
AI YS,Y¥S,1 
AI ¥S,YS,1 
AI YS,YS,1 
AI Y¥S,YS,1 
AI YS,YS,1 
AI ¥S,Y¥S,-1 
AI Y¥S,YS,1 
AI YS,¥S,1 
AI Y¥S,Y¥S,1 
AI ¥S,YS,1 
AI Y¥S,¥5S,1 
AI Y¥S,YS,1 
L NULL,NULL,IR 


LINK,8&10 
LIWNK,811 
LINK,812 
LINK,813 
LINK, @14 
LINK,815 
LINK ,316 
LINK ,817 
LINK,818 
LINK,819 
LINK,81A 
LINK,81B 
LINK ,@1C 
LINK,@1D 


MODEL 


Exz¢ 


002088 
0020BC 


0020C0 
0020C4 
0020C8 
0020CC 


0020D0 
O0O20D4 
0020D8 
CO2ZQDC 
OO20E0 
QO020E2 
OO20E6 


OO2Z0FS 
OO20EC 
O020FO 


OO20F4 
0020F8 


O020FC 
002100 
002104 
002106 
002108 
0021702 
00210C 
00210E 


3229 


ETPE 


OEO2 
JEO2 


9000 


C870 
4070 
2870 
4070 


41F0 
48D 
5820 
45D0 
2088 
45D0 
2288 


5950 
41FO 
41FO 


H1FO 
4300 


DOAO 
D1A0 
O8AC 
o8B8D 
OACF 
2382 
26D1 
OADE 


WRITEABLE CONTROL STORE TEST 


RO4PO 


81E0 
81F0 


20C0 


1234 
213C 
5678 
2740 


20FC 
213C 
2740 
1816 


1822 


2844 
2590 
267C 


1358 
20D0 


2120 
2138 


TEST KODULES 


=0020DB0 


=0020DC 


=000002 


06-232K91RO0A13 PAGE 55 08:11:57 05/10/82 
DCY  0F0281E0 LINK,81E 
DCY  O0F0281FO LINK, 81F 
x kK ke we wk & ee kK ewe Ke Ke Ke KH HE KE kK Ke kK KK kK eH KK eK 
* * 
* TEST FODULE OF * 
* * 
* A RANDOM WCS ADDRESS IS SELECTED AND A * 
* RANDOM NUMBER IS WRITTEN INTO IT, READ * 
* BACK AND TESTED. 
* * 
x kek & & & eK kK KE kK Ke KR we eK Ke &e KE KE kK Ke kK EE eK eK eK 
x 
TESTT EQU* 
* 
TESTO7 LHI DAT,X'1234° INITIALIZE 
STH  DAT,RNI RANDOM 
LHI DAT,X'5678°" NUMBER 
STH  DAT,RNT GENERATOR 
* 
* 
TSTO7A BAL LINK, RANDOM 
LH ADRS, BN1 
L TST,RN7 
CLH ADRS,DCSLO GOOD WCS ADDRESS? 
BLS  TSTO7A NO 
CLH ADRS, DCSHI 
BNLS TSTO7A NO 
* 
* RANDCH ADDRESS IS WITHIN AVAILABLE WCS 
* 
ST ADRS,CCNST 
BAL  LINK,WANDR WRITE £ READ PATTERN 
BAL  LINK,CHKDAT TEST IT 
* 
BAL LINK, TSTBRK 
3 TSTOTA LOOP BACK 
* 
xe ke we we Ke Ke we ke we eK we KR Ke kK kK ke we kK KE kK kK Ke KK 
* * 
* SUBROUTINE GENERATES TWO RANDCM NUMBERS * 
* IN LOCATIONS RN1 AND 2N7. CALLING SEQUENCE * 
* TS: BAL LINK, RANDOM * 
* * 
i a i ed 
x 
RANDOM STM 10,RNSAVE SAVE REGISTERS 
LK 10 ,RN6 LOAD VALUES 
LR F0512 SAVE INITIAL VALUES 
LR 1743 OF R1ER7 IN R1ERB 
AR 12,15 
BFFS 8,2 NO CARRY TO ADD IN 
AIS 13,1 CARRY 
AR 13,14 R7,R1 + R10,211 


om 
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EXEC - ETPE ROUPO TEST FODULES 


002110 O8EFA 2736 LR 14,10 

002112 O8FB 2737 LR 15,11 

002114 DOAO 2138 2738 STM 10,RN6 SAVE VALUES 

002118 D1AO0 2120 2739 i} 10,R8NSAVE RESTORE REGISTERS 

00211C O30F 2749 BR LINK RETURN 
2741 * 

002120 2742 LIGN 4 

002120 2743 RNSAVE gs 24 

002138 0000 0000 2744 RNE BAC 0 

00213C 90000 1234 2745 RN. DAC X*1234' 

002140 0000 5678 2746 RN? BAC X'5678' 

0021744 9000 8888 2747 RNC DAC X¥*6888" 

6021748 doco 1111 2748 RN11 DAC X°1111' 

00214C 2749 DS 6 BUFFER Z3NE 
2750 xe &* & © & kK &K we we we we we wm we eR Kh hhc hhh hUhKhUh hum 
2751 * i 
2752 * TEST KODULE 0§ * 
2753 * = 
2754 * TEST CONTINUOUSLY WRITFS & SPECIFIED * 
2755 * FULLWORD TC WCS LCCATIONS BETWEEN A . 
2756 * SPECIFIED LOW & HIGH LIMIT * 
2757 =* is 
2758 x & we we we we we we we we we we we re ke we Kr hr we hh hl rhlU hue hue 
2759 * 

0000 2152 2760 TEST8 EQU * 

2764 * 

002152 4820 1816 2762 LH 2,DCSLO SET LOW WCS ADDRESS 

002156 4830 1822 2763 LH 3,DCSHI GET HIGH WCS ADDPESS 
2764 * 
2765 * 

OO215A 0802 2766 TSTC8H LR 9,2 START ADRS 

00215C 0883 2767 L& TAB,3 FINAL ADRS 

00215 2681 2768 AIS TAB, 1 PLUS 1 

002160 OB80 2769 SE TAB,O HINUS START 
2770 * 

002162 E6CO 2848 2771 LA POINT,CONST1 

002166 2451 2772 TSTO8BL LIs ONE, 1 

902168 0711 2773 ER 1,1 ONE FULLWORD TO TRANSFER 

002164 E80c 2774 WDCS POIKT WRITE PATTERN 
2775 =* 

00216C 41FO 1358 2776 BAL LINK, TSTBRK 
2777 * 

002170 OAO5 2778 AR 0,ONE INCREMENT 

002172 OBS85 2779 SR TAE,ONE DECREMENT COUNT 

002174 2037 =002 166 . 2780 BNZS TSTOeL LOOP 

002176 4300 215A 2781 B TSTOS8H REPEAT LOOP 
2782 * 
2783 x k& & wk & & &€ kK &K & © we HE K kK KE KK KE KE KH kK kK eK we * 
2784 * 
2785 * TEST KROOULE 09 = 
278& * 
2787 * DATA PATTERN Y°Q0000001" IS WRITTEN INTO A * 
2788 * MICROREGISTER. ALL THE OTHER MICROREGISTERS * 


tar 


( a ( a 


MODEL 3220 WRITEABLE CONTROL STORE TEST 06-232M91R00A13 PAGE 57 08:11:57 05/16/82 


EXEC - ETPE RO4PO TEST HODULES 


2789 * ARE ZEROED. DATA IS READ BACK FROM ALL = 
2790 * MICROREGISTERS (BOTH FROM A & B STACKS) * 
2794 * AND CHECKED. TEST IS REPEATED AGAIN WITH 7 
2792 * THE SAME DATA FOR ALL HICROREGISTERS * 
2793 TEST IS ALSO EXECUTED AS ABOVE WITH DATA * 
2794 * PATTERNS OF yY°O000C0003', Y¥*00000007" * 
2795. eoeeY'FFFFFFFF* (MARCHING ONES) 6& WITH * 
2796 * DATA PATTERNS OF "JEPFFFFFE',Y°3FFFFFF .se. * 
2797 * Y'OCO00000" (MARCHING ZEROES THRU 1°S). id 
2793 * THE TEST ALSO USES THE WORST CASE PATTERNS * 
2799 * OF ATS 6& 5°S TO CHECK THE MICRO-REGISTERS * 
2800 * MICRO REGISTERS: MRO-¥MR3 * 
28017 *. 
2202 we ke we ee we &K we we Ke eK we Ke Ke we ke Ke Ke Ke Ke kK eH ke KK kK eK * 
2803 * 
0000 217A 2804 TESTS EQU = 

OO2Z174 2800 0800 2805 LHI RO,xX°800' 

OO217E C810 O2AF 2806 LHI R1,MICTBL2-MICTBIL-1 

002182 C820 2200 2807 LHI R2,4ICTBL 

002186 2302 2808 WDC R2 

002188 2450 2809 LIS R5,0 ZERO ERROR NUMBER 

002184 2431 2810 LIS R3,1 (R3)= DATA PATTERN 

06218C 5530 0800 2311 BDCS R3,X*'800° BRANCH TO CONTROL STROE 

602190 9855 2812 LR R5,R5 ANY ERRCRS? 

002192 4230 21BA 2813 BNZ TSTS.ERR YES, BRANCH 
2814 * 
2815 * ‘ 

002196. 7800 0800 2816 LHI RO,xX*80C0" 

00219A £810 OODF 2317 LHI R1,NICTBL2ZE~MICTBL2 

OO219E C820 24580 2818 LHI R2,MICTBL2 

OO21A2 EaO2 2819 ¥DCS R2 

OO271A4 F330 AAAA AAA 2820 Li R3,Y‘AAAAAAAR® DATA PATTERNS 

OOZTAR 7860 5555 £555 2821 LI R6,¥°55555555°* USED IN TEST 

002130 2530 0800 2822 BDCS 83,X*800°* 

OO2Z7B4 0355 2823 LR RS,R85 ANY ERRORS 

002136 4330 ORC4 2824 BZ TSTEED NO,EXIT 
2825 * 
2826 * 

OO21BA O845 2827 TSTS.ERR LR R1,E5 GET ERROR NUMBER 

QO21EC 2492 2828 LIS RO,2 CONVERT TO ASCII AND STCFE 

QO21BE £6520 1725 2829 LDAI &82,ERRNO 

0021C2 S4PO 1TA4 2830 BAL LINK,HEXASC CONVERT TO ASCIT 

0021CE6 2478 28371 Eis RO,8 

0021Cé 4813 2832 LR R1,R3 DATA PATTERN USED 

OO21CA E620 299C 2833 LDAI R2,4SG9+2 

OO02TCE H41FO 11A4 2834 BAL LINK,HEXASC 

0024D2 0814 2835 LR R1,R4 

0021D4 £620 29AA 2836 LDAI R2,¥SG9+16 ERROR BIT IN MICRO REGISTES 

0021D8 %1FO 11A4 2837 BAL LINK, HEXASC 

O00214DC 9875 2838 LR DAT,RS5 

OO21DE S1FO 26F6 2839 BAL LINK,TALLI 

DO2ZTE2 4810 180A 2840 L R1,TALLY+6 TS TALLY CPTION SET? 


002156 4230 OEC4 2841 BNZ TSTEND YES, EXIT 


Fa 


MODEL 3220 WRITEABLE CONTROL STORE TEST 


EXEC - ETPE RO4PO 


OO2TEA C850 297E 
OO21EE 41FO 11CC 
0021F2 C850 299A 
0021F6 41FO 11CC 
OO21FA 4300 QECY 
002260 

; 9000 2200 
002200 0061 0170 
002204 0062 0170 
002208 0063 0170 
00220C¢ 0065 0082 
002210 0068 0050 
002214 0060 C050 
002218 0048 0080 
00221C OE78 80A0 
002220 006C 0002 
002224 D058 8014 
002228 0068 0050 
00222C 0048 4000 
002230 OE78 80FO 
002234 006C 0002 
002238 D068 8015 
00223C 0068 0170 
002240 OO48 1080 
0022448 OE78 8140 
002248 006C 0012 
00224C D068 8016 
002250 0048 4010 
002254 OE78 6180 
002258 006C 0012 
00225C D068 8017 
002260 0048 2080 
002264 OE78 81CO 
002268 006C 0022 
00226C D068 8018 
002270 0048 4020 
002274 OE78 8200 
002278 006C 0022 
00227C DO68 8019 
002280 0048 3080 
002284 OE78 8240 
002288 006C 0032 
00228C D068 801A 
002290 0048 4030 
002294 OE78 8280 
0022398 006C 0032 
00229C DO68 801B 


) 


TEST MODULES 


2842 
2843 
2844 
2845 
2846 
2847 
2848 
28493 
2850 
2851 
2852 
2853 
2354 
2855 
2856 
2857 
2858 
2859 


‘2860 


2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 


* 


* MICROCODE TO 
* MERCHING ONE® 


* 
MICTRL 


ALIGN 


CE-232NSTROOA13 PAGE 58 O8:11: 


RS ,NSGE 
LINK, PRINT 
R5,MSG9 
LINK, PRINT 
TSTEND 


4 


TEST THE MICRORESIST 
S AND ZEROE'S. 


* 


00610170 
00620170 
00620170 
00650082 
00680050 
ooeccose 
00480080 
OE7860AG 
006C0002 
DO6seot4 
0068C050 
00484000 
OE7880FO6 
006C0002 
D0688015 
00680170 
00481080 
OE7828146 
006C0012 
DO0688016 
00484010 
O0E788180 
006CCO12 
DO0638017 
00482080 
OE78&1C0 
006CC022 
DO0688018 
00484020 
0E788200 
006C0022 
D0688019 
00483080 
OE788240 
006CG032 
DO6S801A4 
00484036 
0E788280 
006C0032 
DO6880185 


57 


PRINT TEST PATTERN USED AND 


ER 


ER 


05/10/82 


ROR BITS IN REGISTER 


S USING DATA PATTERNS 


L MR1,NULL 

LB MR2,NULL 

L MR3,NULL 

L MDR,YD,Y¥DP1 

L Y¥D,™“DR 

TST9.MCO L MRC,MD? 

X YD,“RO,YD 

RF C+V+G+L,TST9.¥51 

L NULL,HRO,YDP1 

Ea ¥D,"14°,1I8 
TST9.401 L ¥D,¥DR 

X YD,YD,MRO 

RE C+V4+G+L,TST9.HO5 

L NULL, MRO,YDP1 

LI YD,*°15*,IR 
TST9.MO5 L YD,NULL 

X YDe/4R1,YD 

BF C+V¥+G+L,TST9OWN10 

L NULL,MR1,YDP1 

LI YD,°16°,IR 
TST9.M10 X YD, YD,MR1 
BF C+V+G+L,TST9 M15 

L NOULL-MR1,YDP1 

LI YD,*17°,IR 
TST9.M15 X YDMR2,YD 
BF C+V+G+L,TST9.¥20 

L NULL,MR2,YDP1 

LI YD°18°,IR 
TST9.M20 X YD, YD,MR2 
3F C+V+G+L,TST9M25 

L NULL,MR2,YDP1 

LI Y¥D,°19',IR 
TST9.M25 X YD,MP3,YD 
BF C+V+G+L,TST9.¥30 

L NULL,“R3,YDP1 

LI YD,*1A°,IR 
TST9.M30 X YD, YD,¥"R3 
BF C+V+C+L, TSTO.N35 

L NOLL, MR3,YDP1 

LI YD,°1B‘,I8 


ate, 


( os ( a 
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002240 0060 0170 2895 DCY 00600170 TST9.M35 L MRO,NULT 
OO22A4 9061 0050 2896 DCY 00610050 L MR1,MDR 

002248 6068 00590 2897 DCY 00680050 L ¥D,¥4DR 

0022AC 0048 1080 2898 rcY 00481080 x YD,“4R1,YD 

002230 OE73 82F0 2899 DcY OE78E2FO BF C+¥+S+L,TST9 M40 
0022384 006C 0012 2900 DCY 006C0012 L NULL, ¥4R1,YDP1 
0022383 D068 801C 2901 DCY DO068801C LI YD,H1C',IR 

Q0022BC 0068 0050 2302 DCY 36680650 TST9.H40 L YD,¥MDR 

0022C0 0048 4010 2303 DCY 00484010 x YD,YD,4R1 

0022C4 DE78 8340 2904 BCY 0E788340 BF C+V¥+G+L,TST9 MES 
0022C8 006C 0012 2905 DCY 006C0012 L NULL,/MR1,YDP1 
0022CC DO68 801D 2396 DCY DO6E801D LI YD,'1D*,IP 

0022D0 0048 00890 2907 DCY o048C080 TST9.M45 X YD,MRO,YD 
OO22D4 E78 8380 2908 DCY 0£788380 BSF C+VtG+L,TSTS.450 
0022D8 O006C 0002 2999 DCY 006C0002 L NULL,MRO,YDP1 
0022DC DO6S8 801E 29170 DCcY DO68EO1E LI YD,°1E*,IR 

0022E0 0048 4000 2371 DCY 004884uaco TST9.M50 X YD,YO,MRO 
O0022E4 OE78 83C0 2942 DCY 0E7883C0 BF C+V4+G+L,TST9.E55 
OO022E& GO06C 0002 2313 DCY 006C0002 L NULL,MRO,YDP1 
OO22EC DOf8 801F 2974 DCY DOES8E8OTF LI YD,‘ 1F",IR 

O0922F0 C048 2080 2915 DCY 00482080 TST9.M55 X YD,¥4R2,YD 
0022F4 0E78 84900 2976 DCY OE78eh00 BF C+V¥+G+L,TSTI.ME0 
0022F8 O04 9022 2917 DCY 0O6CO022 L NULL,ER2,YDP1 
OOZZFC 3058 8020 2378 BCY D0688020 LI YD,°29°,IR 

002300 0048 4020 2349 DCcY 00484020 TST9.M60 X YD,YD,¥4RZ 
002304 OE78 8440 2929 DCY OE788440 BF C+V¥+G+L,TSTS 46S 
002308 0056C 9022 2921 DCcY 006C0022 L NULL, NR2,YDP14 
00230C D068 8021 2922 DEX D0688021 LI YD,*21°,IR 

002310 0048 3080 2923 DCY 00483080 TSTO.M65 X YD,HR3,Y¥D 
002314 E78 8480 2924 cCY OE788480 EF C+V+G+L,TST9I.M7O 
902218 606C 0032 2325 BCY 00€C0032 L NULL,ER3,YDP1 
00231C DO68 89022 2325 DCY DO688022 Le YD,°22°,IF 

002320 0046 4030 23927 BCY 00484030 TST9.M70 X YD, YD, *E3 
002324 OE7T8 84CO 2328 DCY OE7884C0 BF C+V+G+L,TSTIMN75 
002328 906C 0032 2329 DCY 006C0032 L NULL,MR3,YDP1 
00232C DO68 8023 22390 DCY DO68E023 EE YD,°23',1IR 

002330 0061 0170 2531 BCY 00610170 TSTS.M75 L MOT,NULL 
002334 00€2 0050 2332 DCY 00626050 L MR2,MDR 

002338 9058 0050 2233 BCY 00680050 L YD,MDR 

00233C 0048 2080 2334 pc 00482080 Xx YD,4R2,YD 

002340 J=578 8530 2935 DCY 0E788530 BF C+V+S+L,TSTO.480 
002344 006C 0022 2936 DCY 006CC022 L NULL, “R2,¥OP1 
992348 9068 8024 2937 bCY D0688024 LI YD,'24',I® 

00234C 9968 0050 2338 DCY 00680050 TST9.M890 L YD,¥OR 
002350 0048 4920 2939 DCY 00484020 X YD,YD,™R2 

002354 OE78 8580 2340 DcY 0E788580 BF C+V4+G+L,TST9.M85 
002358 006C 0022 2941 DCY 006CO0022 L NULL, ER2,Y9P1 
00235C DO68 8025 2962 DCY DO688025 LI YD,°25°,12 

002360 9048 0080 2943 DCY 00480080 TST9.M85 X YD,MNRO,YD 
002364 OE78 85CO0 2944 DCY 0£7885C0 BF C+V+E+L,TSTINIO 
002368 006C 0002 2945 DCY 006C0002 L NULL,MRO,YDP1 
00236C DO68 8026 2946 DCY D0688026 LI YD,*°26'°,28 


002370 0048 4000 2947 DCY 00484000 TST9.N90 X YD, YD,¥4RO 


‘er 


MODEL 3220 


EXEC - ETPE 


002374 
002378 
00237C 
002380 

( 002384 
002388 
00238C 
002390 
002394 

. 002398 

00239C 

0023A0 
0023A4 
0023A8 
0023AC 

002380 

0023B4 

0023B8 
0023BC 

{ 0023c0 
0023C4 
0023C8 

‘ 0023CC 
0023D0 

0023D4 

‘ 0023D8 
0023DC 
0023EF0 

{ 0022E4 
0023E8 
0023EC 

f 0023F0 
0023F4 
0023F8 

< 0023FC 
002400 

. 002404 

{ 002408 
00240C 
002410 

¢ 002414 
002418 
00241C 

J 002420 
002424 
002428 

( 00242C 
002430 
002434 

( 002438 
00243¢ 
002440 

¢ 002444 


OE76 
005C 
DO68 
0048 
OE78 
OO6C 
D068 
0048 
OF78 
0045C 
D068 
0048 
OE78 
006C 
D068 
0048 
OE78 
006C 
D068 
0062 
0063 
0068 
0048 
OE78 
006C 
D068 
0068 
0048 
O78 
006C 
DO68 
0048 
OF78 
006C 
D068 
0048 
0878 
006C 
D068 
0048 
OE78 
006C 
D068 
0048 
OE78 
006C 
D068 
0048 
0278 
006C 
DO6B 
0048 
OE78 


WRITEABLE CONTROL STORE 


ROGPC 


85090 
0002 
8027 
1085 
8640 
0012 
8028 
4010 
2680 
0012 
8029 
3080 
86C0 
0032 
802A 
4030 
8700 
0032 
802 
0170 
0050 
0050 
3080 
8770 
0032 
g02C 
0050 
4030 
B70 
0032 
802D 
0080 
8800 
0002 
802E 
4000 
8840 
0002 
802F 
1080 
8880 
0012 
8030 
4010 
88CO 
0022 
8031 
2080 
8900 
0022 
8032 
4020 
8940 


2948 
2349 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2377 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2390 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 


TEST 06-232@91R00A13 PAGE 


0E786600 
006CC502 
DC6SEN27 
90481680 
OE786640 
CO0€éC90012 
DO6ESS28 
004284010 
OF788680 
CO6CCO42 
DO68EO29 
00483980 
OETBEECO 
006C0032 
DO6SEC2A 
00484030 
OE7E&28700 
006CCO32 
D068S028 
00620170 
0063¢C050 
00680050 
00483080 
OE78&770 
C06CUG32 
DO68802C 
00680650 
00484930 
OE7B8E7CO 
006C9032 
DQ68802D 
00480080 
OE7E@800 
0906C0002 
DO68802E 
00484000 
OE78e840 
0906C9002 
D068802F 
00481080 
OE78&8880 
006C6012 
Dd06588030 
00484010 
OET78&88CO0 
006C8022 
DOE8EO31 
0482080 
OE78S900 
006CC022 
D0688932 
004848020 
OF 782940 


60 


08:11:57 


05/10/62 
BF C+V+tGtL, TSTILMI5 
u NULL,“EO,YDP1 
LI YD,'27°,22 
TST9.NS5 X YD,¥R1,YD 
BF C+V+G+L,TST9I.MAO 
L NULL,¥P1,YDP1 
LI ¥D,'29",I® 
TST9.MAO X YD,YD,HR1 
RF C+V+G4+L,TSTS MAS 
L NULL,4R1,YDP4 
LI ¥D,'29',1% 
TSTS.MA5 X YD,N83,YD 
BF C+V+G4+L,TSTS.MA8 
L NULL, M23,¥YDP1 


LI ¥D,°2A'°,22 


TSTO.MAG X YO,YD,MR3 
BF C+V+G+L,TSTS.MAA 

L NULL, “4R3,YDP1 

LI YD,‘'28°,IR 


TSTO.MAA L MR2,NULL 
L MR3,FDR8 


L YD,HDR 

X YDMR3,YD 

BF C+V+G+L,TST9.MAB 

i NULL,483,YDP1 

it YD,'2C',2® 
TSTO.MAB L YD,¥DP 

X YD,YD,*83 

BF C+V4G+L,TSTO MEA 

ie NULL,¥23,YDP1 

LI YD'2D',IR 

TSTO.MEA X YD,MRO,YD 
BE C+V¥+G+L,TST9.MBO 

L NULL, ¥RO,YDP1 

LI YD, '2E',IR 
TST9.MBO X YD,YD,MRO 
BF C+V+G+L,TST9.MB2 

L NULL, 420,YDP14 

LI YD,'2F*,IR 
TSTO.MB2 X YD,4R1,YD 
BF C+V4+64L,TST9.NBY 

i NULL, 41,¥DP1 

Lt YD,°30',IR 
TSTO.MB4 X YD, YD,MR1 
BF CHV4+G4+L,TST9 MBG 

L NULL, ™R2,YDP1 

LT YD'31°,28 

TSTO.MB6 X YD,4R2,YD 
BF C+V+G+L,TST9 MBB 

L NULL,MR2,YDP1 

LT YD,°32',IP 
TSTO.NBS X YD, YD,MR2 
BF C+V+C+L,TSTO.NBA 


( a ( oO 
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EXEC - ETPE ROYPO TEST MODULES 


0024648 906C 0022 3004 DCY 00600022 L NULL,MR2,YDP1 
OO244C D068 8033 3002 PCY D0688033 Et ¥p,'33°,IR 
902450 0063 0172 3003 DCY 00630172 TSTO.MBA L MR3,NULL,YDP1 
002454 0068 0083 3004 DCY 00680083 L YD,¥D,¥D¥1 
002458 ocos 8A30 3005 DCY  o0CO8gsA30 BT L,TST9.MBB 
0024u5C 6068 0050 3006 PCY 00680050 L YD,¥DE 
902460 0065 0A80 3007 DCY  00650A80 SLL ¥D8,YD 
002464 OoCuO BAO 300 DC¥  O0C4O8K00 BT C,TST9.MNBD 
002468 9068 0050 3009 DCY 00680050 L ¥D,€DR 
00246C 0035 c001 3010 DCY  0035C001 OI ¥DR,YD,‘1° 
002470 906C 0173 3011 DCY  006C0173 L SULL,NULL,YD™1 
002474 0068 005 3012 PCY 00680052 L YD,MDR,YDP1 
002478 0058 0050 3013 DCY 00680050 L Y¥D,¥DR 
00247C E00 8050 3014 DCY 0£008050 RB TST™9.MOO 
002480 005C 0172 3015 DCY 006C0172 TST9.MBD L NULL,NULL,YDP1 
002484 9018 4085 3016 DCY 00184085 SDEC ¥D,YD,YD 
002488 006C 0173 3017 DCY  006C0173 L NULL,NULL,YDM1 
00248C 9068 0050 3018 DCY 00680050 TST9.¥BB L YD,MDR 
002490 0065 OE80 3019 DCY  00650E80 SRL ¥DR,YD 
002494 9E38 8AAO 3020 DCY  OE388AA0 BF V+G+L,TST9.MBC 
002438 005C 0173 3021 DCY  006C0173 L NULL, NOULL,YDE1 
00249C 0068 0052 3022 DCY 00686052 L YD,¥DR,YDP1 
0024A0 9068 0050 3023 DCY 00680050 L YD,EDR 
CO24A4 QECO 8050 3024 PCY  oF0C8050 B TST9.NCO 
0024A8 0068 0172 3025 DCY 00680172 TSTS.MBO L YD,NULL,YDP1 
OO24AC 2068 0170 3026 DCY  DO680170 L YD,NULL,/IR 
3027 * 
3028 * MICROCODE TO TEST THE MICOREGISTERS USING DATA PATTERNS OF 
3029 * A'S AND 5'S. 
3030 * 
9000 2430 3031 MICTBL2 EQU * 
0024B0 0965 0080 3032 DCY 00650080 i ™DR,YD 
OO24R4 0060 0082 3033 DCY 00600082 TSTQ.NOO L MRO,YD,YDP1 
0O024B8 0068 0050 3034 DCY 00680050 L YD,MDR 
0024BC 0048 0080 3035 CCY 00480080 x YD,4RO,YD 
0024C0 CE78 8070 3036 DCY  0E788070 RF T+ T4V4L, TSTS NOS 
0024C4 006C 0002 3037 DCY  006C0002 L NULL,¥RO,YDP1 
0024C8 D068 8014 3038 DCY  DO688014 LI YD,'14",IP 
0024CC 9968 0050 3039 DCY 00680050 TST9.NOS L YD, MDB 
0024D0. 0048 4000 3040 DCY 00484060 ¥ YD, YD,¥4RO 
0024D4 OF78 80CO 3041 DCY  OE78e0C0 QF C+G+V4L,TST9.N10 
0024D8 906C 0002 3942 DCY  oc6CoCO2 c NULL,¥RO,YDP1 
0024uDC D068 8015 3043 DC D0688015 i ¥D,°15",I8 
00240 0061 6050 3044 DCY 00610050 TSTo.N10° 7, “R1,¥DR 
OO2KE4 0068 0050 3045 DCY 00680050 t YD,MDR 
0024EB 0048 1080 3046 PCY 00481080 x YD, MR1,YD 
O024EC 0E78 8120 3047 DCY  0F788120 BF C4HSHV4L, TSTOWN1S 
0024FO 006C 0012 3048 DCY 006C0012 L NULL, 4R1,YOP1 
OO24F4 D068 801C 3049 DCY  p068801C LI 5,910" {19 
0024F8 59068 0050 3050 DCY 00680050 TSTO,NTS L YD, MDP 
0024FC 0048 4010 3051 DCY 00484010 x YD, YD,MR1 
002500 OE78 8170 3052 DCY  0E788170 BF C+S4+V+L,TST9.N20 
002504 006C 0022 3053 DCY  006C0022 L NULL, MR2,YDP1 


~ 


om 


MODEL 3229 


EXsC 


002508 
00250C 
002510 
00251714 
002518 
OC251C 
002520 
002524 
002528 
00252C 
002530 
002534 
902538 
90253C 
002540 
002544 
002548 
00254C 
002550 
002554 
002558 
00255C 
002560 
002564 
002568 
00256C 
002570 
002574 
002578 
00257C 
002580 
002584 
002588 
00258C 


~ ETPE 


DOES 
0068 
0062 
0048 
078 
096C 
D68 
0068 
0048 
OE7S8 
o06c 
D068 
0066 
0063 
0048 
OE78 
006C 
D068 
0068 
0048 
QET8 
OO6C 
DO6E 
O06C 
OO6C 
0045 
OETS8 
9065 
006C 
906C 
0068 
OEOO 
OG6C 
D068 
0000 


WRITEABLE CONTROL STORE TEST 06-232H91ROOA13 PAGE 


ROUPG 


301D 
0050 
0050 
2080 
81D0 
0022 
2024 
COsS 
4020 
8220 
9022 
8025 
9056 
6050 
308C 
8280 
0032 
802C 
0050 
#030 
8250 
6932 
§92D 
9172 
6172 
695C 
8360 
9083 
0173 
0173 
0950 
8010 
0173 
2170 
258F 


TEST KODULES 


DCY 
MICTBL2E EQU 


£b068801D 
006800590 
606200590 
00482080 
cE7887D0 
006C0022 
D0688024 
€0680050 
20484020 
CE788220 
906C0022 
D0688025 
00680050 
00630050 
00483080 
OE786280 
006C0032 
DOE8802C 
90680050 
00484039 
CE7882D0 
JO6CCO32 
DO68602D 
006C0172 
006CC172 
00454050 
CE788360 
00650083 
006C0173 
§06C0173 
90680050 
0E008010 
006C0173 
DOE50170 


*-4 


62 


08:47:57 05/19/82 


LI Y¥D,°1D*,IR 
TSTO.N20 2 YD,MDR 
L MR2,KDR 

X YD,WR2,YD 

BF C+G+V+L,TSTSN25 
L NULL,MR2,YDP1 

LL YO,'24*,IR 
TSTS.N25 L YD, MDR 
X YO,YD,MR? 

BF C+S+V+L,TSTO.N30 
L NUILL,NR2,YDP1 

LI ¥D,°25*,IR 
TSTO.N3C L YO,UDR 
L ¥23,MDR 

x YO,¥4R3,YD 

Br C+G4+V4L,TSTIN3E 
L KULL,¥R3,YOP1 

LI Y¥D,*2C",IR 
TSTS,N2E L YD,MDR 
Xx YO,¥D,MR3 

BF C+S4V4L,TSTILNUO 
L WELL,ME3,YDP1 

LI ¥D,°2D*,1R 


TST9.N8O L NULL,NULL,YDP1 
L NOLL,NULL,YDP1 

X MDR,YD,¥4DR 

BF C+V¥+S4+L,TST9.N50 
EDR,Y¥D,YDé1 
NULL,NULL,YDM1 

NULL, NULL, YD™1 

YD,HDR 

TST9.809 

TST9.N50 L NULL,NULL,YDM1 
L Y¥D,NULL,IR 


Orem et 


, 


Fail 


” 


( os ( | 
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EXEC -ETPE RO&PO TEST SUBROUTINES 


3990  *----~----------~---------------------------- +--+ +--+ -------- 
3091 
3082 *TEST PROGRAH SUBROUTINES 
3093 * 
BOQY Ban nnn nn nn nn en nnn nnn enn nn nn nnn nnn nn nnn nnn nnn nnn nnn 
3095 * 
3996 xk & & &£ we kK Re eK eK KK KR Ke eK Ke ke Ke KE KE KK kK ke KK OK 
3097 * * 
3098 * SUBROUTINE WRITES THE CONTENTS OF REGISTER * 
3099 * TST INTC THE WCS LOCATION WHOSE ADDRESS IS * 
3100 * IN REGISTER ADRS, THFN READS THE LOCATION * 
3101 * BACK AXD PLACES THE RETURNED DATA IN DAT * 
3102 * * 
3103 * A SLOW WCS FIXED POM RIT MAY CAUSE THE * 
3104 * PROCESSOR TO BEHAVE UNPREDICTABLY WHILE * 
3105 * EXECUTING THIS ROUTINE IN AN EXHAUSTIVE TEST. * 
* * 

A te asthe ie nds acta ernest ta ee as 
3108 * 

602590 ogo0D 3109 WANDR LR 0,ADRS ADDRESS 

002592 0711 3110 XR Ty 

002594 50E0 2824 3111 ST TST, TSAVE TEST DATA 

002598 F670 2826 3412 LA DAT, TSAVE 

00259C E807 3113 wDCS DAT WRITE IT 

00259E 082d 3414 LR 2,ADRS 

0025A0 0733 31415 XR 3,3 

0025A2 E670 2828 3116 LA DAT, DSAVE 

0025A6 E327 3197 RDCS DAT READ IT BACK 

OO25A8 5870 2828 3118 1 DAT, DSAVE DATA RETURNED. 

OO25AC 030F 3149 BR LINK 
3129 * 
3421 "© © © & we Re we Re we ke we ee we eR KR RR RK Ke 
3122 * * 
3123 * SUBROUTINE READS THE WCS LOCATION WHOSE * 
3124 * ADDRESS IS IN REGISTER ADRS. THE DATA READ IS * 
3125 * RETURNED IN REGISTER DAT. THEN THE LOCATION * 
3126 * IS RE-WRITTEN WITH THE CONTENTS CF REG. TST. * 
3127 * * 
31428 * © &£ & ee we &e kK we we we ke we we we ee we ee we he hh hu rhUhlUehlUm 
3129 * 

OC25AE O82D 3130 RANDW LR 2,ADRS ADDRESS 

002580 0733 3131 XR 3,3 

002532 3670 2828 3132 LA DAT, DSAVE 

002536 2827 3133 RDCS DAT PEAD IT 

0025B8 og0D 3134 L? 0,ADRS 

OO25BA 5050 2824 3135 ST TST, TSAVE 

0025BE £670 2824 3136 LA DAT,TSAVE 

0025C2 0711 3137 XR 1,1 

0025C4 £807 3138 WDCS DAT 

0025C5 5870 2828 3135 ié DAT,DSAVE 

0025CA 030F 3440 RR LINK 
3141 * 
3142 * SUBROUTINE CLEARS DCS IMAGE 


tae 


mike 
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EXEC -ETPE ROSPO TEST SUBROUTINES 


3143 * 
0025CC 0777 3144 CLRIMJ XR DAT,DAT 
0025CE O7k4 3145 CLRILP XR ZERO, ZERO 
. 0025D0 5074 2A9C 3148 CLRILP1 stv DAT, IMAGE( ZERO) 
( 0025D4 2644 3147 AIS  ZERO,4 
0025D6 C540 0040 3148 -CLHI ZERO,64 16 FULLWORDS 
0O25DA 2085 =002ED0 3149 BLS  CLRILP1 
0025DC 0744 3150 XR ZERO,ZERO 
0025DE 030F 3151 BR LINK 
| 3152 * 
3153  * SUBROUTINE PROPROCATES IMAGE THROUGH ALL wes 
3154 * 
0025E0 E6CO 2A9C 3155 COPY LA POINT, IMAGE 
0025E4 4800 1816 3156 LH 0,DCSLO 
0025E8 2U1F 3157 COPYL LIS 1,15 16 FULLYORDS 
OO25EA E80C 3158 WDCS POINT WRITE IMAGE 
( 0025EC CA00 0010 3159 ANI 0, 16 
002570 4500 1822 3160 CLH 0,DCSHI DONE? 
0925Fu 2086 =O0C25E6 3161 BLS COPYL NO 
f 0025F6 030F 3162 BR LINK 
3163 * 
31764 * * * * * * x * * cd * x x * * * * * x « * * * * * 
‘ 3165 * * 
3166 * SUBROUTINE WRITES THE 16 FULLWORD IMAGE TO * 
3167 * THE WCS LOCATION WHOSE ADDRESS IS (DCSLO) * 
( 3168 ™* PLUS (PASS). CALLING SEQUENCE IS: * 
3169 * BAL LINK,WRITD * 
. 3170 * * 
t 3171 xk «x xk & xk * & & & & kK O*K x « * * * * « * * « * * * 
3172 * 
O025F8 4800 1816 3173 WRITD LH 0,DCSLO CALCULATE START ADRS 
( 0025FC 4A00 2856 3174 AH 0,PASS 
002600 2N4F 3475 LIS 1,15 16 FULLWORDS 
002602 R670 2A9C 3176 LA DAT, IMAGE 
t 002606 F807 3177 WDCS DAT WRITE IT 
002608 030F 3178 BR LINK 
. 3179 * 
¢ 3180 * x * * * * * * * * * * x * * * * * * *« * * * * * 
3181 * * 
3182 * SUBROUTINE COMPARES WCS OUTPUT AGAINST * 
¢ 3183 * THE WCS INPUT IMAGE. * 
3184 * * 
3785 * * x x x x * " * * * * * * * *" * * * * * * * * x 
( 3186 * 
00260A 50FO 2840 3187 READD ST LINK,CRET 
; 00260F 4820 2856 3188 LH 2,PASS CALCULATE 
é 002612 4A20 1816 3189 AH 2,DCSLO DCS START ADDRESS 
002616 243F 3190 LIS 3,15 16 FULLWORDS 
002618 R670 2A5C 3191 LA DAT, BUFF 
( 00261C E827 3192 RDCS DAT READ 
00261E 0788 3193 XR TAB, TAB 
002620 08D2 3194 LR ADRS, 2 


€ 002622 58E8 2A9C 3195 COMPRL L TST, IMAGE( TAB) DATA WRITTEN 


ra 
* ‘; ; ) ' . 


( a ( | 
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EXEC -ETPE RO¥PO TEST SUBROUTINES 


002626 5878 2A5C 3196 L DAT, BUFFC(TAB) DATA READ 

00262A 41FO0 267C 3197 BAL LINK,CEKDAT COMPARE 

00262E 26)D1 3198 AIS ADRS, 1 

002630 2638 3199 AIS TAB,4 BUMP INDEX 

002632 [580 GO4O 3200 CLHI TAB,64 

002636 208A =002622 3201 BLS COMPRL LOOP 

002€38 58FO0 2840 3202 L LINK,CRET RETURN 

00263¢C O30F 3203 BR LINK 
3204 * 
3205 * SUBROUTINE COMPARES ALL WCS TO THE IMAGE 
3206 * 

00263E O744 3207 READCS XR ZERO, ZERO 

002646 4040 2856 3208 STH ZERC,PASS 

002644 50FO 2840 3209 ST LINK,CRE® 

OO2646 48c0 1816 3210 LH ADRS,DCSLO START ADRS 

00264KC 082D 3211 RDCSL LR 2-/ADRS 

OO264E E670 2A5C 3212 LA DAT,BUFF 

002652 243F 3213 LIs 3,15 16 FULLWORDS 

002654 E827 3214 PDCS DAT READ 

002656 0788 3215 XR TAB, TAB 

002658 5828 2A9C 3216 CMPRL L TST, IMAGE( TAB) DATA EXPECTED 

00265C 5878 2A5C 3217 L DAT, BUFFC(TAB) DATA OBSERVED 

002660 41F0 267C 3218 PAL LINK ,CHKDAT COMPARE 

O0Z664% 2684 32193 AIS TAB,4 BUMP INDEX 

002666 26D1 3220 AIS ADRS, 1 INCREMENT ADDRESS 

002668 £580 0040 3221 CLHI TAE,64 

00266C 208A =002€58 3222 BLS CMPRL LOOP 

002668 45D0 1822 3223 CLH  ADRS,DCSHI . 

OC2672 &2890 264C 3224 RL RDCSL LOOP 

002676 58FO0 2840 3225 L LINK ,CRET 

OO267A O30F 3226 BR LINK RETURN 
3227 * *k& &k kk & &K & & H&E Ke &K kK K &K KH kK Ke KX KK KE eH kK Ke ke Ke 
3228 * SUBROUTINE COMPARES REGISTERS TST AND DAT * 
3229 * TF DIFFERENT, REGISTERS ADRS, TST, AND DAT * 
3230 * ARE CONVERTED TO ASCII IN MSC3. * 
3231 * CALLING SEQUENCE IS: BAL LINK,CHKDAT i 
3232 * id 
3233 xe © & & & KK eK w& & we &K Ke we we we kK KK &K kK KK kK kK KE kK * 
3234 * 

O02E7TC O557 3235 CHKDAT CLR TST,DAT COMPARE 

002675 O033F 3236 BER LINK OK 

002680 50FO 2830 3237 ST LINK, LINKSAY SAVE RETURN ADDRESS 
3238 * 

002584 50D0 2820 3233 ST ADRS, ASAVE SAVE RFGISTERS 

002688 5QOEO0 2824 3240 T TST,TSAVEe 

00268C 5070 2828 3241 St DAT,DSAVE 

002690 59C9 282C 3242 ST POINT, PSAVE 
3243 * 

002694 2408 3244 LIs RO,8 

002696 5810 2820 3245 I R1,ASAVE ¥ 

002694 E620 291A 3246 LA R2,MSG3 DESTINATION 

00269E H1FO 11A4 3247 PAL LINK,HEXASC ADDRESS 


0026A2 5810 2824 3248 L R1,TSAVE ¥ 


“eee? 


_ 


tm 


Ae 


MODEL 3220 


WRITEABLE CONTROL 


STORE TEST 06-232497R00A13 PAGE 66 


EXEC -ETPE RO4PO TEST SUBROUTINES 


OO026A6 
OO26GAA 
OO2ZERKE 
0026B2 
0026B6 


OO26BA 
JO26BE 
002EC2 
0026C4 
0026C4 
0G26C8 
0026CC 
0026D0 
0026D4 
0025D8 

0026DC 


Q026E0 
OO26E4R 
0026E8 
OO026EC 
Q0026F0 
CO26F4 


0026F6 
O026FA 
{ O026FE 
002702 
002706 
00270A 
00270E 
002712 
¢ 002744 
002718 
002712 
¢ 00271E 
002720 
002724 
é 002726 
002728 
00272A 
¢ 00272E 
002732 
: 902734 
« 002738 


£620 
41FO 
5619 
£620 
41FO 


C870 
4070 
247A 


41F0 
4870 
4230 
C850 
41F0O 
C850 
41FO 


58FO 
5850 
58=0 
5870 
58CO 
O30F 


2923 


2834 
16E6 
2AE8 
180A 
2712 
OFBE 
274A 


29F2 
0014 


=002728 
16F2 


0000 
16F0 


16F0 
9000 80ce 


3249 
3250 
3251 
3252 
3253 


CHKEXT 


+ + & 


* SUBROUTINE 


TALLI 


TALLIO 


TALLI1 


R2,MSG3+9 
LINK,HEX&BSC 
R1,DSAVE 
R2,MSG3+18 
LINK, HEXASC 


DAT,C*CA® 
DAT, ERRNO 
DAT,X'OR® 
LINK, TALLI 
DAT, TALLI+5 
CHKEXT 
R5,MSG? 
LINK, PRINT 
R5,4SG3 
LINK,PRINT 


LINK, LINKSAV 
ADRS,ASAVE 
TST,TSAVE 
DAT, DSAVE 
POINT, PSAVE 
LINK 


LINK, LINKSAV1 
LINK, NOERR 
RO,RSAYE 
CHAR, TALLY+6 
TALLIO 
LINK,ERR 
TALLI2 

DAT, 1 

CHAR, ERROROO 
CHAR,DAT 
DAT,X'14° 
TALLI1 

DAT, BTESTNO 
DAT, 1 
CHAR,DAT 
ONE, 1 

ONE, O(CHAR) 
R1,TCTERR 
R121 
R1,TOTERR 
R1,X'8000' 


08:11:57 


05/10/82 


DESTINATION 
DATA EXPECTED 
vw 


DESTINATION 
DATA OBSERVED 


COMPARE EPROR 


NO ERROR 4ESSAG= 


PRINT MESSAGE 


RESTORE REGISTE#S 


RETURN 


TALLYS ERRORS AND PRINT ERRCP MESSAGES 


SAVE RETURN ADDPESS 
SET NWO ERROR FLAS 


TALLY OPTION SET? 
YES, BRANCH 
PRINT ERROR NUMBER 


SHIFT ERRNO NONPER ONCE 
GET ADDRESS OF EPROR TABLE 
BUILD ADDRESS 

ERROR OA? 

NO, BRANCH 

YES, GET TEST NUMBER 
DOUBLE 

FORM TALLY ADDRESS 


INCRMENT TALLY 
INCRMENT TOTAL FRROR 


ERROR EXCEEDS ‘7FFF* ? 


MODEL 


3220 


WRITEABLE CONTROL 


EXEC -ETPE RO&PO 


CO273E 
002742 
C02746 
OO27T4UA 
OO274E 
002752 


002754 
002756 
00275A 
00275C 
O0275E 
002762 
002766 
OO276A 
00276C 
00276E 
002772 
002774 
002778 
00277C 
002780 
002782 
002784 
002786 
00278A 
002785 
002790 
002794 
002798 
00279C 
0027A0 
OO27A4 
O027A8 
OO27AC 
002780 
0027B4 
002788 
O027BA 
0027BC 
0027C0 
0027C4 
0027C6 
0027C8 
0027CA 
0027CE 
0027D2 
0027D4 


4280 
41F0O 
4300 
D100 
5aF0 
O30F 


274A 
2754 
OF 74 
2AE8 
2834 


2834 


2834 
16DE 
29F2 


0067 


280A 
2834 
OP3A 


OOOR 
2730 


OODA 
27C8 
0008 
27BA 
3030 
172C 
OO0R 
2704 
2A2A 
172C 


3030 
172C 


3930 
172C 
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TEST SUBROUTINES 


=002782 


=CO02766E 


=CO27D4 


3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 


TALLI2 


* 
* 


BR 


TALLI2 
LINK,ERRLISTC 
KEEPO2 
RO,RSAVE 
LINK, LINKSAYV1 


LINK 


NO, BRANCH 
PRINT ERROR TABLE 
PRINT TOTAL & TCTER® 


* ROUTINE PRINTS ERRORS TALLIED WHEN BREAK KEY IS DEPRESS®D, 
* CLEARS THE ERROR TABLE AND RETURNS TO THE COMMAND FODE. 


* 
* 
E 


RRLISTC 


ERRLIST 


ERRLISTA 
ERRLIST1 


ERRLISTO 


ERRLIST2 


ERRLISTS 
ERELISTS 
ERRLIST?7 
ERRLISTS 


ERRLIST6 


TAB,O 

LINK, LINKSAV1 
EPRLISTA 

TAB,O 

TAB, LINKSAV1 
TAB,BRKVECT 

CHAR, ERROROO(TAB) 
ERRLIST2 

TAB, 2 

TAB, ERREND-ERROROO 
FERLIST1 
RET2,CLRIBL 

LINK, LINKSAV1 
OPTIN2 

LINK 

DAT,TAB 

DAT, 1 

DAT, X*OAR* 
ERRLISTS 


AJ ot 


RELIST? 
DAT,X'3030° 
T,ETESTNO 
DAT, Z'OA® 
RLIST6 


Ci*xxet 


IW 


aa 


mre wt 
a) De 


R3,; 
F3,ETESTXO 
ERRLIST6 
23,6 
R3,X°3030° 
P3,ETESTNO 
DAT, X°OA* 
ERRLIST6 
B3,9 
P3,X'3630° 
23,ETESTNO 
DAT,X‘OA* 
RO,2 


v1 


ZERO LINK ADDRESS 
CLEAR BREAK VECTOR 


CLEAR ERROR TABLE 


SO, PRINT BREAK TERMINATION 
RETURN TC CALL 


IS IT ERROR 14 OR GREATER? 


IS IT ERROR 42 OR 13 
NC, BRANCH 


STORE TEST NUMBER 


hoy 


002708 €820 1725 3356 R2,EPRNO 
0027DC 41FO 11A48 3357 LINK, HEXASC CONVERT ERROR NUMBER TO ASCII 
; 0027E0 41FO 1258 3358 LINK,CRLF 
: OO27E4 4OFO 16E4 3359 LINK, ISITERR FORCE PRINT 
OO27E8 41E0 107C 3360 RET,ERR1 PRINT ERROR TINN 
QO2TEC 2404 3361 RO,4 
OO27EE 0818 3362 R1,CHAR 
O027F0O 7820 2978 3363 R2,KSG7+14 
DO27FY 41FO 11A4 3364 LINK,HEXASC CONVERT TO ASCIT 
0027F8 C850 296A 3365 R5,4SG7 
O027FC H4FO 11¢C 3366 LINK, PRINT PRINT TOTAL NUMBER OF TIMES ERROT 007 
002800 24F0 3367 LINK,0O 
002802 4OFO 16EuU 3368 LINK, ISITERR ZERO FLAS 
002806 4300 276C 3369 ERRLISTO 


77 ee ao 


len Ai re Cae LS Oe Oe Men Ee Me 


OF Wb id ett ttt ot ot a toe 
GOH bt le 


* 
* 
3372 * SUBROUTINE CLEAR ERROR TALLY TABLE 
* 
* 


0000 280A 3375 CLRIBL rh 

00280A E6CO 29F2 3376 L POINT, ERROROO GET TABLE ADDRESS 
( 00280E O744 3377 XR ZERO,ZERO 

002810 4OuUC 0000 3378 CLRTBL1 STH ZERO,OCPCINT) 

002814 26C2 3379 AIS POINT,2 
{ 002816 C5CO 2A59 3380 CLHI POINT,ERREND 

OO2851A 0221 3381 BP? RET2 
s 00231C 4300 2810 3382 = CLRTPL1 


jTT * 


HODEL 3220 WRITEABLE CONTROL STORE TEST 06-232§91700A13 PAGE 68 08:11:57 05/10/82 
EXEC ~&TPE ROYPO TEST SUBROUTINES 
0027D6 0817 3355 P1,DAT 


MODEL 


EXEC-TEST CONSTANTS & 


002820 
002820 
002824 
902828 
00282C 
0022830 
002834 
002838 
002E3C 
0028490 
0028448 
002848 
OO264A 
O0284C 
0028590 


002854 
002856 
002858 
002852 
OO285C 


002860 
OO28E4 
002868 
00286C 
002870 
002874 
002878 
O6287C 
002880 
002884 
002886 
00288C 
002890 
002894 
002898 
00289C 
0028A0 
OC28A4 
CO28A8 
OG2EAC 
002830 
O028B4 
0028B8 
O0028BC 
0028C0 
0028C4 
0028C8 
0023CcC 
0028D0 


3220 
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0000 
FFFF 


TABLES 


3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 


3398 
3399 
3400 
3401 
3402 
3403 
3404 
3495 
3406 
3407 


3408 


3409 


3410 


3411 


3412 


3413 


3474 


* TEST CONSTANTS & TABLES 


ALIGN 4 
ASAVE DC 0 
TSAVE pe 0 
DSAVE Dc 0 
PSAVE DC 0 
LINKSAY DC ce] 
LINKSAV1 DC 8] 
FCODE DCY 0 
VIRTADRS DCY 0 
CRET DS 4 
CONST DS 4 
CONST1 BC X*ACAO',X"AOAO® 


ZEROS DBC 0 


ONES DC -1 

* 

DELTA DCX 8800 DIFFERENCE OF WCS HT & LOW 
PASS DCX 0 


DPAGE DCX 0 
IPAGE DCX 0 
FLIP DCX 0 
* 


PATERN DCY FRFFFFFE,FRFFFRFD,FFFFFFFB,FPREFFE? 
DCY FFFFFFEF,FFFFFFDE,FFFFFFBF, PrFEFF7F 
DCY FFRFFFEFF,FFFFFEDFF,FFFFFBRE,&PFFFU7FE 
DCY FFFFEFFF,FFFFDFFF,FFFFEFFE,FEFFUFFF 
DCY FFFEFFFFE,FFFDFFFF,PFEBFFFF,FFF7FFFF 
DCY FFEFFFFF,FFDFFFFF,FFBFFFEF,fF7PEFFE 
DCY FEFFFFFF,FDFFFFPFE,FBFFFFEFE ,FUFFFFFF 


DCY EFFFFFFF,DFFFFFFF, BFFFFFFF, 7FFFFFFE 


~~ 


we 


MODEL 3229 


WRITEABLE 


EXEC-TEST CONSTANTS € 


OO028D4 
0028D8 
Q0O028DC 
OO28E0 
O028E2 
OO28E4G 
OO28E6 
O028E8 
OO2Z8EA 
QO28EC 
O028EE 
CO2RFO 
O0028F2 
O028F4 
0028F6 
0028F8 
OO28FA 


O028FC 
OO28FE 
002906 
00250E 
002916 
002918 
OO29TA 
002922 
00292A 
002932 
002934 
002936 
Q0293E 
002942 
002944 
00294C 
002950 
002952 
OC295A 
002962 
002968 
00296A 
002972 
OO297A 
00297C 
OO0297E 
002986 
0O0298E 
002996 
002998 
O0299A 
0029A2 
OO29AA 
0029B2 
OO29B4 


FFFF 
FFFF 
FREE 


RU5Z 
5850 
QF? 


2020 
2020 
2020 


2057 
HE Yo 


5320 
4544 


5354 
5449 
5254 


5441 
5420 


5354 
524E 
aF52 


2920 
2020 
2920 


S52 
543 
5346 


2026 
202C 
202C 
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TABLES 


3416 


3417 
3418 


3419 


3420 


3421 


3422 


3423 


3424 


3425 


3426 


MSG2 


4SG3 


MSGS 


MSG4 


MSG6 


4SG7 


MSG8 


pe 


bc 


pc 


DC 


be 


DC 


DC 


BC 


DC 


=210,E830,8840,5850,F860,F879,E885 


=890,F8A0,28RB0,E8C0,£800,28E0,E8F5 


ZX*"COOO0',C*ADDRESS EXPECTED OBSERVED',x¥"'Ona0! 


XY*ODOA'* 
C*NO WCS FOUND',xX*ODCO* 


C*wcs DETECTED*',X*ODOG’ 


C°TEST EXECUTION STARTED',X'ODOO' 
C*TOTAL COUNT = 


*,xX*ObDOoOo' 


C'TEST PATTERN 


ERROR BITS *,xX*"O0D00" 


*,X"ODS0" 


MODEL 3220 


EXEC-TEST CONSTANTS €& TABLES 


0029B6 
OO29BE 
0029C6 
0029CE 
0029D2 
0029D4 
0029DC 
O029E4h 
0029EC 
0029F0 


0029F2 
OO29F4 
0029F6 
0029F8 
QO29FA 
CO29FC 
OO29FE 


OO2A4u4 


4641 
KEES 
5541 
4553 
0D90 
2020 
2020 
2020 
2020 
oDO0 


0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
9000 
0090 
0000 
0000 
9006 
0000 
0000 
0000 
0090 
9060 
9000 
0000 
0900 
0000 
0090 
0000 
0000 
0000 
9000 
0000 
0000 
9900 
9090 
0900 
0900 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0090 


WRITEABLE CONTROL STORE TEST 06-232491R00A13 


554C 
2920 
4C20 
5320 


2020 
2020 


2020 


2020 


5420 
5649 
4144 


2020 
2020 
2020 


434F 
5254 
4452 


2020 
2020 
2020 


3427 


3428 


3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 


MSG10 


MSG11 


* 


ERROROO 
ERRORO1 
ERRORO2 
ERRORO3 
ERROROY 
ERROROS 
ERRORO6 
ERRORO7 
ERRORO8 
ERROROS 
ERROOOR 
ERROWOA 
BRRO2O4K 
ERROS3OA 
ERROWOA 
ERROSOA 
ERRO60A 
ERRO7TOA 
ERROR12 
ERROR13 
ERROR14 
ERROR15 
ERROR16 
ERROR17 
ERROR18 
ERROR19 
ERRORIA 
ERROR1B 
ERRORIC 
ERROR1D 
ERRORTE 
ERRORIE 
ERROR20 
ERROR2 1 
ERROR22 
ERROR23 
ERROR24 
ERROR25 
ERRGR26 
ERROR27 
ERROR28 
ERROR29 


Dc 


DC 


C'FAULT CODE 


oO000 00 000000000000 00 000000 00 000 0000 000 000 0 
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ERROR 
ERROR 
ERROR 
ERROE 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
FRROR 
ERROR 
ERRO® 
ERROR 
ERROR 
ERRO® 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 


VIRTIAL ADDRESS 


*,k'OD0C" 


*,X*'opoo* 


MODEL 
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EXEC-TEST CONSTANTS € TABLES 


OO2K46 
OO2A48 
OO2A4A 
OOZA4NC 
OO2ZAUE 
002A50 
OO02A52 
OO2AS4 
OO2A56 
062458 


0000 
9900 
0000 
0000 
9000 
90090 
90900 
9000 
0000 
0000 
9000 2A59 


Q00CG 2A59 


3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 


ERROR2A DCX 0 
ERROR2B DCX 0 
ERROR2ZC DCX 0 
ERROR2L DC 0 
ERROR2E DCX 0 
ERROR2F DCX 6 
ERROR30 DCX 0 
ERROR31 DCX 0 
ERPROR32 DCX 9 
ERROR33 DCX 0 
ERREND FOU *=1 
* 

Kem emwmwm nw eww ewe wee ee em we ww wee ewe ew wee 
* 

LNZ3 FOU *=1 


57 05/10/82 


ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERRO® 
ERROR 
ERROP 


O9ZA 
0928 
092¢ 
092D 
0925 
Q92F 
03939 
0931 
0932 
0933 


MODEL 3220 


WRITEABLE CONTROL STORE TEST 


EXEC - ALL TEST PROGRAM STORAGE AREA 


OO2A5C 
OO2A5C 
OO2A9C 
OO2ADC 
OO2AE2 
OO2AEG 
OO2AE8 
OO2AE8 
002B70 
O0O2BRO 
OO2BFO 
002CFO 


3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
35006 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 


( 


06-232§4M91800A13 PAGE 
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* EXEC & TEST PROGRAM (COMMOR) STORAGE APEA 


* 
* 


**CHKSUM 
* START 


+ + 


RSAVE 
INTSAY 
ERRSAVE 


OF CHKSUM FILE 


ALIGN 4 
DS 64 
DS 64 
DS 6 
DS 2 
DS 2 
ALIGN 8 
DS 136 
DS 64 
DS 64 
DS 256 
DS 64 


OPTION INPUT BUFFER 
TEMPORARY STORASF Loc 


REGISTER SAYE & PSW SAVE AREA 
REGISTERS ON EXT/INM INTERRUPT 
REG STORAGE FOR TRROR ROUTINES 
REG SETS 4-F, @/32 WITH & SETS 
DOUBLE PRECISION FP REG SAVE AREA 


heed 
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CHKSUN/M17 PUNCHER 


002D30 2400 3510 SCHKSUM LI RO,9 PUNCH 417 TAPE WITH CHECKSUM 
002D32 9510 3511 EPSR P41,R0 SELECT PEG. SET 2 
3512 * 
002D34 5610 OAOO 3513 LDAI P1,QRIGIN1 START 
002D36 2421 3514 LIS R2,1 INCREMENT 
002D3A #630 2A59 3515 LDAI 83,LNZB FINAL 
002D3E 2440 3516 LIS “RHO CHECKSUM BYTE 
{ oo2Du0 D351 0000 3517 SaEN LP 25,0(B1) 
002D44 O745 3518 XAR  -4, RS 
002D46 C110 2D40 3515 RXLE R1,SGEN 
( OO2D4A D240 0099 3520 STB - 24, MN+3 CHECKSUM BYTE TO BOOT LOADER 
3521 * 
OO2DUE C810 0080 3522 STAPE LHI 21,X'0C80° 
{ 002D52 9E21 3523 OCR R2,81 DISPLAY : NORMAL KODF 
002D5u 9444 3524 FX¥BR R4,24 
002D56 9924 3525 WHR R2,R4 CHECKSUM BYTE TO D1 
( 002D58 9411 3526 FXBR 241,21 
OO2DS5R 9501 3527 EPSR RO,R1 HALT PROCESSOR. 
3528 * 
‘ 3529 *#§----------------- ‘Woe -----+------ 
3530 * 
00205C D360 OO7A 3531 SPUNCH LB R6,X'7AS SE™ BOUTDY (PUNCH) ADDRESS. 
A 002D60 DE60 0073 3532 oc R6,X°7E! START TAPE PUNCH 
o02D64 9D60 3533 SSR R6, FO 
0029456 2081 =000001 3534 BTBS 8,1 
t 002068 W1FO 2DAA 3535 BAL 215,STAPL PUNCH LEADER 
002D6C 9411 3536 EXBR R1,R1 (R1) = X*0080° 
CO2D6E C830 OOCF 3537 LHI R3,X"CFS 
( 002D72 DA61 0000 3538 SPNCH1 WD R6,0(R1) PUNCE BOOT LOADEP 
002D76 9D60 3539 SSR B6, RO 
002D78 2081 =000001 3540 BTBS 8,1 
t OO2D7A C110 2D72 3544 BXLE R1,SPNCH1 
002D7z 41FO 2DBO 3542 BAL R15,STAPL1 PUNCH ONE-FOLD GAP. 
3543 * 
{ 002D82 D340 0099 3546 LB Ru, MN+3 GE™ CHECKSUM BYTE 
002D86 E610 OA00 3545 LDAI R1,CPIGIN1 (NORMALLY X*A00") 
OO2D8A 2630 2A59 3546 LDAI 83,LNZB 
€ 002D8E D351 0000 3547 SPNCH2 LB R5,0(R1) PUNCH PROGRAM 
002DS2 O745 3543 XAR  R4,RS 
002D94 SA65 3549 WDR  R6,R5 
002D96 3401 3550 EXBR R0,R1 
002D98 9820 3551 WHR B2,RO DATA ADDRESS TO DISPLAY. 
OO2D9A 9D60 3552 SSR R6, RO 
t 002D9C 2081 =000001 3553 BIBS 8,1 
OO2D9F C110 2D8E 3554 BXLE R1,SPNCH2 
O02DA2 41FO 2DAA 3555 BAL R15,STAPL PUNCH TRAILER. 
O02DA6 4300 2D4E 3555 B STAPE DISPLAY CHECKSUM, HALT PROCESSOR. 
é 
& 
4 


a. 


fare 


MODEL 3220 


OO2DAA 
OO2DAE 


OC2DBO0 


OO2DBY4 
OO2DB6 
OO2DBS8 
OO2DBA 
OC2DBC 
OO2DBE 
d02DC0 


O002DC2 


C800 
2303 


C800 


2701 
032F 
2430 
9A63 
9D68 
2081 
2206 


WRITEARLF CONTROL STORE TEST 06-232M91R00A13 


0100 


0080 


=O002DB4 


=000001 
=O002PB4 


3558 
3559 


* 
* 
* 
STAPL 


* 


STAPL1 


* 


STAPLP 


( 


CHKSUM/¥17 PUNCHER 


RO,256 
STAPLP 


RO,128 


RO,1 
R15 
R3,0 
R6,R3 
R6,88 
8,1 
STAPIP 


FAGE 
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(CONTINUED) 
TO PUNCH BLANK LEADED? 
TO PUNCH 1-FOLD GAP+ 


PETURN 


PUNCH BLANK FRAME 


CONTINUE. 


MODEL 3220 WRITEAELE CONTROL STORE TEST 06-232H91RGOA13 PAGE 76 08:11:57 08/16/82 
SYMBOL TABLE &€ CROSS REFERENCE LIST 

ASSEMBLED BY CAL/32 03-338FC0-00 

START OPTIONS: T=32,ERLST 


NO CAL ERRORS 
NO CAL WARNINGS 


6 PASSES 

TABLE SPACE USED : ISK DISC SECTORS : 0 

SCHKSUM 0009 2539 3510* 

SCLOCY 0090 0901 89* 928 942 959 1494 

SDECASC 0000 0209 87* 1025 

SDECHEX 0000 0090 86* 516 

SDECTAB 0906 0080 85* 1710 

SDISPLAY 0000 0C00 90* 684 714 752 

SGEN 0009 2740 3517* 3519 

SKBINT 0000 0009 88* 1284 4357 1371 1Ea7 

SNULL 0000 16F8 1703* 

SPNCH1 0900 2272 3538* 3541 

SPNCH2 9000 2D6F 3547* 3554 

SPUNCH 0000 255C 3531* 

SROBIN 000G 0005 84* 982 

STAPE 9900 2D4£ 3522* 3556 

STAPL 090900 20AA 3535 3555 3561* 

STAPL1 00900 25329 3542 3564* 

STAPLP 0000 2DB4 3562 3566* 3572 

STIMER 1 90000 1165 933." 938 1493 

STIMXT OCOC 17173 94O0* 1495 

STSTDU2 0000 1410 1260 1262* 

ABORT 0000 OFFC 681* 

ABORT2 0000 OF4A 694 710* 

ABSTOP 0009 25¢2 

ADC 0090 0004 146 224 239 1336 1436 1450 1458 1479 1530 1560 1582 1598 
2110 

ADR 0000 OD7E 509* 

ADRS 9000 OCOb 56* 2190 2191 2193 2296 2207 2210 2211 2213 2227 2228 2335 
2341 2342 2350 2351 2357 2358 2472 2482 2483 2490 2502 2594 
2510 2520 2522 2704 2706 2708 2713 3109 3474 3130 3134 3194 
3198 3210 3211 3220 3223 3239 3269 

Ar 0000 1590 1328 1547* 

AMSG 0009 1742 321 1738* 

ASAVE 00C0 2629 3239 3245 32€9 3387* 

ASCIDEV 0900 1759 862 1725* 

ASCIDEV2 0000 1769 842 1729* 

ASCILOC 0000 1774 876 889 1733* 

ASCIPSW 00G0 175A 886 1731* 

ASCISTA 0000 1758 852 866 1727* 

BOOT 0000 0686 115 117* 

BRAWCS 0906 2024 2627 2628 2653* 

BRE.SAY 0900 1700 1203 1239 1241 1706* 

BRKFLS Q390 F620 310 577 1098 12904 1235 1244 1691* 


BRKMSG Q9900 T7A4 312 1739* 


HODE 


BRKVECT 
BTESTNO 


CON2ND 
CONC*D 
CONENR)D 
CONRAD 
CONRD 
CONRQ2S 
CONST 
CONS? 1 
CONTIN 
CONWADE 


Tr 
ae 


as 


3220 


TABLE 


9000 
0000 
0000 
0000 
0000 
0000 
0000 


0900 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0900 
9000 
99000 
9000 
0000 
0000 
0000 
0000 
0000 
0900 
0000 
0000 
0000 
0000 
9000 
0000 
0900 
0009 
0900 
9000 
0000 


WEITEAELE CONTROL STORE TEST 


£ CROSS REFERENCE LIST 


16DE 
16F2 
2A5C 
OATE 
OA42 
CA4O 
OASC 
0008 
267C 
26=0 
OA3A 
0216 
0238 
25CE 
25D0 
28CC 
220A 
2610 
2658 
1526 
15BE 
2622 
1708 
1858 
6A30 
OA32 
0431 
OA2A 
OA2E 
OAKB 
2844 
2348 
17=0 
OR2C 
OA2F 
25E0 
25E8 
16F4 
2280 
1258 
0435 
CA34 
CANS 
0007 


1232 
619 
1919 
166* 
197* 
196* 
206* 
54 
2204 
3262 
193* 
162* 
192* 
2346 
31496* 
2187 
1848 
3378* 
3216* 
1566* 
1568* 
3195* 
812 
482 
187* 
189* 
188* 
182* 
185* 
202* 
2023 
1772 
693 
183* 
186* 
2188 
3157* 
651 
3187 
289 
191* 
190* 
203* 
4g* 
1869 
1902 
1939 
1991 
2023 
2043 
2143 
2167 
2264 


1690* 
637 
2044 


1181 


32aAra 
V3 1 


2225 
3268* 


96-232NS91R00A13 


1839 
654 
2051 


Acs 


2052 
2339 


2391 


2361 
3375* 


3319 
675 
3191 


3284 
2355 


2402 


2507 


( 


721 
3196 


3289 
2476 


2469 


3144* 


3395* 
472 


1842 
1873 
1913 
1962 
2003 
2032 
2075 
2147 
2217 
2275 


PAGE 


77 


1700* 
3212 


2487 


08:11:57 


3293 
3217 


3295 
2493 


3145* 


2383 


600 


1845 
1878 
1926 
1966 
2005 
2034 
2983 
2152 
2224 
2284 


05/10/82 
3498* 
3297 3320 
2513 2715 
2470 2488 

735 1107* 
1846 1847 
1682 1889 
1927 1928 
1967 1974 
2006 2007 
2035 2039 
2034 2085 
2155 2163 
2249 2251 
2285 2286 


3362 
3197 


2508 


1192 


1856 
1894 
192S 
1975 
2018 
2040 
2132 
2164 
22523 
2295 


3218 


3155* 


1863 


22.55% 


3358 


a a 


NI 
[o>] 
NO 
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SYMBOL TABLE & CROSS REFERENCE LIST 

2303 2306 2307 2308 2345 2381 2389 ©2390 2392 2396 2401 2405 
2406 2408 2409 2410 2614 2415 2446 2417 2413 2423 2426 2432 
2433 2434 2435 2440 2444 2442 2468 2486 2541 2542 2546 2548 
2559 2552 2995 2557 2558 2559 2562 2567 25€9 2570 2571 2574 
2578 2594 2595 2596 2597 2598 2605 2607 2628 2631 24640 2641 
2642 2645 2646 2647 2648 2649 2697 2698 2699 2700 2838 3112 
3113 3116 3117 3118 3132 3133 3135 3138 3139 3144 3144 2146 
3176 3177 3131 3192 319€ 3212 3214 3217 3235 3241 3256 3257 
3258 3261 3271 3288 3290 3291 3293 3294 3295 3329 3330 3331 
3333 3334 3336 3338 333¢ 3340 3342 3353 33:55 


DCSEHI 0000 1822 1759* 1784 1841 2147 2167 2207 2228 2260 2302 2342 2350 2483 
2504 2522 2588 2649 2706 2763 3160 3223 

DCSLS 00900 1816 1757* 1796 1840 2025 2132 2146 2151 21€6 2799 2270 2288 2310 
2335 2358 2385 2472 2490 2510 2604 2706 2762 3156 3173 31789 
3210 

DEFTESTS 0000 1858 549 551 2103* 

DELTA 0000 2854 1843 2410 2419 2435 3401* 

DEVINT 0000 1B20 1475 2095* 

DEVMSG 0000 174C 868 1724* 1725 1726 1727 

DEVNSG2 0000 175C guy 1728* 1729 

DEVSADR 0009 1B1C 1365 1469 2093* 

DFF 0000 1692 1332 1648* 

DFF1 0000 1684 1654 1656 1658* 

DPAGS 0000 2858 2387 2406 2432 2434 3403* 

DSAVE 0009 2828 2196 2203 2217 2224 2552 2562 2574 311€ 31178 3132 3139 3241 
3251 3271 3389* 

DUSAVE 0000 17C0 292 299 304 363 498 1071 1206 1258 1741* 

DUSAVE1 0000 17C4 300 362 1742* 

ECHO 0000 131A 1178* 

ECHO1 0000 1336 1179 1186* 

ECHRTN 9000 1338 4182 1187* 

ECSVCT 0000 2080 2597 2606 2669* 

EOTEX 0009 OF30 697 699* 

FOTMSS 0000 1792 6993 1736* 

ERR 0000 OFBE 773* 1570 1637 3286 

ERROO 0000 193C 1869 1871* 

ERROOOA 0000 2A96 3H00* 

ERRO1 0000 196E 1877 1902* 

ERRO10A 0000 2A08 34441* 

ERRO2OA 0000 2A0K 3442* 

ERRO3 0000 1998 1925 1927* 

ERRO390A 0000 2A0C 3443* 

ERROY 0000 1AF2 1938 2073* 

ERROWOA 0000 2A0E 3444* 

ERROSOA 0009 2410 3445* 

ERROGOA 0000 2A12 3446* 

ERROT 0000 1A82 2031 2033* 

ERRO7OA 0000 2A14 3447* 

ERROS8 0000 1B04 2039 2031* 

ERRO9.1 0000 19F0 1974* 

ERROGS.2 6900 41330 2003* 20603 

ERR1 0000 107C 775 784 789 794 800 805 833* 3360 

ERRALL 0900 1030 803* 1510 1520 


! - ) ‘6 a 
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SYMBOL TABLE & CROSS REFERENCE LIST 


ERRCOM 
ERRCOM1 
ERRCOM2 
ERRD 
ERRD1 
ERRDEY 
ERRDS 
ERRDS1 
ERREND 
ERRIND 
ERRL 
ERRL1 
ERRLIST 
ERRLISTO 
ERRLIST1 
ERRLIST2 
ERRLIST3 
ERRLIST4 
ERRLISTS 
ERRLIST6 
ERRLIST7 
EPRLISTS 
ERRLISTA 
ERRLISTC 
ERRLVL 
ERRMSS 
ERRNO 


ERROROO 
ERRORO1 
ERRORD2 
ERRORO03 
EPRROROY 
ERRORO05 
ERROROS 
ERRORO? 
ERRORO8 
ERRORO9 
ERROR12 
ERROR 13 
ERROR14 
ERROR15 
ERROR16 
ERROR17 
ERROR 18 
ERROR19 
ERROR1A 
ERROR 1B 
ERROR 1C 
ERROR 1D 
ERROR1E 
ERROR IF 


0009 
0000 
3000 
0000 
0000 
00006 
0000 


OO30 


0000 
9000 
0000 
0000 
0000 
0000 
9000 
0000 
09009 
0000 
0000 
9000 
0006 
0000 
0000 
0900 
0000 
0090 
0000 


0000 
0000 
0000 
0009 
0000 
00900 
0000 
0000 
0000 
9000 
0000 
9000 
09009 
0000 
0900 
0000 
0900 
0900 
0000 
0000 
0000 
0000 
0000 
0000 


1048 
1066 
OFCA 
OFDC 
1086 
16D0 
1004 
TOBE 
2A59 
2034 
1018 
1ODC 
27SC 
276C 
2766 
2782 
278E 
27A0 
27B0 
27D4 
27BA 
27C8 
2762 
2754 
178F 
1726 
172E 


783 
822* 
786 


840* 
864 


806 
3380 
2634 


874* 
3317* 
3369 
3324 
3329* 


3342* 
3344 
3345* 
3350* 
3319* 
3303 
1735* 
1719* 
1569 
1953 


2320 


788 793 739 804 812* 


791 796 802 808 


1677* 
660* 


3482* 
2658* 


3349 3354* 


33714* 

1720 1721 

1517 1540 1548 1559 1579 
1975 2006 2034 2074 2084 


3323 3376 3430* 


05/10/82 
1649 1721* 
2558 2570 


1872 
2641 


7ass 
2825 


1903 
3257 


MODEL 3220 


WRITEABLE CONTROL STORE 


SY480L TASLE & CROSS REFERENCE LIST 


ERROR20 
ERROR21 
ERROR22 
ERROR23 
ERROR24 
ERROR25 
FRROR2S 
ERROR 27 
ERROR22 
ERROR2$ 
ERROR2A 
ERROR22 
ERROR2C 
ERROR2D 
ERROR2E 
ERROR2F 
ERROR 33 
ERROR31 
ERROR 32 
ERROR33 
ERRPL1 
ERRS 
ERRS1 
ERRSAV= 
ERRSTA 
ETESTN3 
FCODE 
FIRST 
FLAG 
FLIP 
FNDL1 
FNDLO 
FORPRT 
FOUND1 
FOUND2 
FOUR 
FWCHK 
FWORD 
GETCHR 
GLOBAL 
HALTS 
HEXASC 


HEXASC1 
HEXTAB 


INITRE™ 
INSTAR 


J 


0000 
00090 
0000 
0009 
0000 
0000 
0900 
0000 
0000 
0900 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
09000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
9000 
0000 
00090 
0000 
0000 
0000 
0900 
0000 
0000 
0000 


0000 
0000 
0000 
0000 


0000 
0000 
9000 
0000 
0000 


2A32 
2A34 
2A36 
2A38 
2A3A 
2A3C 
2A3E 


3462* 
3463* 
3464* 
3465* 
3466* 
3467* 
3468* 
3469* 
3470* 
3471* 
3472* 
3473* 
3474* 
3475* 
3476* 
3477* 
347e* 
3479* 
3480* 
3481* 
807 
787* 
790 
773 


782 787 
1679* 

1720* 1847 
1591 1630 


315 390 
898 907 
853 863 


3247 3250 


976 1018 


2251 2262 


3415* 


TEST 06-232491R00A13 PAGE 


3339 
1652 


2440 


734 


1172* 


867 


3253 


1518 


2273 


60 


877 
3357 


1713* 


2296 


98:11:57 


3347 


3405* 


887 
3364 


2392 


05/10/82 


3506* 


3352 


890 1011* 


2423 31456 


4632 


3155 


1636 


3176 


2330 


3195 


~ 


"tw 


3220 


( 


WRITEABLE CONTRGL STORE TEST 06-232M91R00A13 PASE 81 


SY“839L TABLE € CROSS REFERENCE LIST 


INSTLP1 
INSTLP2 
INSTR1 
INSTR2 
INTDEY 
INTLEY 
INTLYL 


THTT UT u 
ba Lt ss 


INTPSW 
INTSAV 
INTSTA 
I0 


I0.0K1 
I9.0K2 
T0.0K3 
TO.0K4 
IOSAVE 
IPAGE 
ISITERR 


KBREAD 
KBXIT 
KEEP1 
KEEP19 
KEEP191 
KEEP2 
KEEP3 
KEEPS 
KEEPS&1 
KEEP42 
KEEP43 
KEEPS 
KEEPS5 
KEEP? 
KEEP714 
KEEPS 
KEEPS91 
KEEP92 
LADC 
LCORE 
LCORE32 
LCORE3 2: 
LEADER 
LEVEL 
LINK 


0000 
9000 
0000 
9000 
0000 
0000 
0000 


AaAAaANn 
yvuvuY 


0000 
0000 
0000 
3000 


0000 
0000 
0000 
9000 
0000 
0000 
9000 


0000 
0000 
9000 
9900 
9000 
0000 
9000 
0900 
9990 
9000 
9900 
0900 
9000 
9000 
0000 
0000 
9000 
0090 
0000 
0000 
50006 
0000 
0000 
0000 
0000 


19DE 


1965* 
1989* 


1984 
2015 
1973* 
2001* 
1465 


2097* 
1734" 
4466 
1500 
1678* 
243 
1268 
249* 


1676* 1677 


244 252 
1303 1604 


1087 1111 
2422 2431 
700 703 
4851 2059 
1070 

723 

637* 

73C* 827 
1310* 

285 289 
322 324 
425 429 
577 578 
692 695 
781 815 
887 890 


1095 1096 


253 259 
1615 1620 
1125 1160 
340&* 

737 777 
3359 3368 
3364 

305 309 

337 345 

432 446 

575 6G0 

696 701 

834 843 

892 940 
1097 1098 


08:11:57 


266 
1621 


1209 


817 


05/19/82 

268 460 
1625 

1214 1253 
1073 1193 
311 313 
368 330 
456 459 
674 643 
734 735 
853 855 
1024 1056 
1105 1714 


598 


1271 


1197 


1162 


4301 


1523 


315 


3591* 


1674 


MODEL 3220 


WRITEARLE CONTROL STORE TEST 


SYMBOL TABLE & CROSS EEFERENCE LIST 


LINKSAV 
LINKSAY1 
LNZB 
LOAD 
LOCMS3 
LOOK1 
LOOK2 
LOOK3 
LOOK4 
LOOKS 
LOCKUP 
LOOP 
LPAD® 
LPEND1 
LPEND2 
LPWRT 
LVLERR 
HAXTST 
KICROBUS 
KICTBSL 
MICTBL2 
MICTBL2E 
MM 

MM31 
MM32 
4MM33 
KMCOM1 


0000 
0000 
0009 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0900 
0000 
0000 
0000 
99000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0009 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


2830 
2834 
2A59 
OOAC 
1779 
OBFs 
OBFC 
ococ 
OD3A 
OD5E 
OBFO 
17D4 
OA1TA 
1A00 
TA4GB 
OA3C 
1558 
TB5C 
OA22 
2200 
2430 
258F 
15D4 
1602 
15£6 
1606 
160A 
1618 
162C 
163A 
1655 
0096 
16BE 
I7FE8 
OAaY 
29B6 
29D4 
Zeke 
291A 
2944 


1144 
1234 
4571 
1906 
2741 
2292 


1148 
1235 
1632 
19314 
2161 
2313 


O06-232M91RO00A13 FACE 82 


4158 1188 1192 1193 
1236 1241 1242 1264 
1636 1637 1638 1641 
1956 1578 2009 2037 
2162 2187 2188 2204 
2314 2332 2333 2337 
2383 2391 2402 2443 
2492 2493 2503 2567 
2714 2715 2717 2740 
31406 3151 3162 3178 
3236 3237 3247 3250 
3286 3303 3306 3307 
3367 3368 


3315 3318 3326 33.92% 
3515 3546 


368* 


2854* 
2818 3031* 


1619 1623 1629* 1659 
3544 


1642 3428* 


3252 3265 3419* 


08:11:57 


1195 
1272 
1643 
2050 
2225 
2339 
2463 
2508 
2776 
3187 
3253 
3315 


05/10/82 
1203 1204 
1366 1519 
1803 1807 
2064 2070 
2257 2258 
2346 2347 
2470 2474 
2512 2513 
2830 2834 
3197 3202 
3260 3254 
3326 3328 


1234 
1570 
1897 
2140 
2291 
2361 
2480 
2573 
2843 
3218 
3273 
335% 


MODEL 3220 WRITEABLE CONTROL 


SYMBOL 


MSG5 
NSG6 
MSG7 
MSG8 
MSG9 
MTESTNO 
NEXTST 
NODCS 
NOERNSG 
NOERR 
NOMSG 
NORM 
OLOC 

CNE 

ONES 
OPSW 
OPSW32 
OPT 
OPTBUF 
OPTCHD 
OPTCMD1 
OPTCND10 
OPTCMD11 
OPTCHD12 
OPTC™D2 
OPTCHD3 
OPTCND4 
OPTCMDS 
OPTCMD6 
OPTCMD7 
OPTCMD714 
OPTCMD8 
OrTCND 
OPTEND 
OPTEND2 
OPTEXX 
OPTIN 


OPTIN1 
OPTIN2 
OPTION 
OPTRIN 
OPTVAL 
OPTVALO 
OPTVAL1 
OPTVAL2 
OPTVAL3 
OPTVAL4 
OFTVALS 
ORIGIN 
ORIGIN2 
OTC .0 
OTC.1 


STORE TEST 


TABLE & CROSS REFERENCE LIST 


0000 
0000 
0900 
0000 
0000 
0000 
0900 
9000 
0000 
0000 
0000 
0000 
0000 
00900 
0000 
0990 
0900 
0000 
0000 
0000 
0000 
0009 
0000 
9900 
9006 
0000 
0909 
0000 
0000 
0000 
0009 
0000 
09000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0900 
0009 
0000 
0000 
9909 
09090 
0000 
0000 
0960 
0000 
0000 
0000 


2936 
2952 
296A 
2S7F 
299A 
1722 
16F6 


a 
4ABE 


1742 
16E6 
ITEC 
146D3 
16CE 
0005 
2850 
16CR 
16C8 
17C8 
2ADC 
0C56 
0C58 
OcEO 
0D12 
0D20 
OC7A 
oceo 
0C86 
0C98 
OCA8 
OcB4 
Occsé 

cCDY 
CCDE 
1849 
1828 
OCc4uy 
0350 


OBS5C 
OB3A 
1840 
OCUA 
1118 
ak 
1120 
1412¢ 
1130 
1184 
1140 
OA00 
OACK 
4292 
129E 


2057 
2069 


3421* 
3423* 
3365 
3425* 
2836 
642 


06-232K91RO0A13 


3424* 
2844 


644 
640 


818 


888 
2772 
1549 


448 
329 


472* 


3513 


1143 


3426* 
1718* 
1702* 


1694* 


1457 


2778 


1566 


1749* 
348 


478 
1512 


3327 
1765 


3545 


1145 


( 


PAGE 


1852 


4492 


2779 


1588 


356 


ugg 


1525 


83 


2065 


1550 


3296 


1650 


374 


553 


1573 


08:11:57 05/10/82 


3282 
1567 1589 1657 . 1674* 
3297 


1672* 


3500* 


573 704 754 1644 1773 


206 4 


pete 


MODEL 3220 WRITEABLE CONTROL STORE TEST 06-232N918S0A13 PAGE 84 08:11:57 98/10/82 


f SYMBOL TABLE & CROSS REFERENCE LIST 
. oTC.2 9000 12K8 1132 «1136* 
¢ OTC.3 0000 12BA 4139 1142* 
"Cy 0000 12D8 4151* 1156 
; OTC.S 0000 1255 1158* 1164 
( OUT.SAY 0000 16FC 1124 1167 1705* 
OUT 0000 1304 1130 11849 1152 1158 1159 1166* 
oUT1 0000 1308 1165 1157* 
OUTCHR 0000 1280 322 324 397 407 412 424 429 432 454 456 744 977 
1067 1078 1090 1698 1109 1114 1118 1124* 1807 
OUTCHR2 0000 12C8 4127. 1135.90 14410 147% 
\ F1 0000 11F6 1058 1062* 
D2 0000 11F4 1067* 1069 
p3 0000 1290 1063 1071* 
t PASFLS 0000 146DA 277. «1279 «1607S: 16.34* 
PASFLG2 9000 16DC 255 1618 1685* 
' PASLADR 0000 0812 150* 
PASS 0000 2856 2131-2143) 2145) 2159 2163) 216520 2403. 2405) = 2409s ate) = 2416 254k 
2584 2586 2594 26CS 2617 2623 2630 2685 #2647 4934174 +3188 3208 
3402* 
‘ PATERN 0000 2860 2281 2285 2393 2368 3407* 
PAUSE 0000 16FA 1128 1133 1780 1148 1147 1704* 
POINT 0000 090C 55* 1961 1961 1965 1966 1981 1982 1983 1987 1987 1889 1992 


f 2012 2013 2014 2084 2050 2197 2200 2218 2221 2385 2386 2543 
2564 2593 2593 2597 2599 2600 2771 2774 3155 3158 3242 3272 
3376 3378 3379 33839 


{ PRINT 0000 11c¢ 291 313 648 674 701 738 @34 845 855 869 879 892 
1055* 1135 1524 1644 1643 2060 2064 2070 2843 2845 3264 3256 
: 3366 
( PRINT2 9000 1258 1072 1076* 1685 
PRINT2A 0000 1210 1077* 1083 
PRINT3 9000 1228 1086 1086* 
PRINT3A 0000 123A 1089 1093* 
PRINT3A1 0000 1274 » 1413 1117* 
PRINT3B 0000 123C 1092 1094* 
PRINT3B1 0000 1276 1116 1118* 
PRINTS 0000 12480 1061 1074 1095* 
PRTFLG 0000 16£2 578 1057 1096 1236 1692* 
PSAVE 0000 282C 3242 3272 3390* 
PSa 0000 OA52 211* 652 778 
PSW2 00900 OA54 212* 222 318 662 682 813 1462 1568 
PSWHSS 0000 1766 891 1730* 1731 1732 1733 
PURETOP 0000 0090:P 
QNSG 0000 17A0 1794 1737* 
‘ QUESTN 0000 133E 325 1192* 1779 1781 1783 1786 1791 1793 1795 1799 
RG 0000 0000 91* 259 260 2&3 274 286 287 288 326 327 328 329 
347 348 421 458 460 461 549 550 551 552 583 587 
589 593 596 537 598 599 606 607 608 609 618 619 
620 625 626 627 630 633 641 649 650 651 653 663 
664 665 665 667 671 683 721 722 732 733 739 T4a7 
773 776 777 779 780 782 787 792 7197 803 B14 840 
$50 860 864 874 884 932 937 939 . 968 969 $80 1011 


1012 1023 1055 10774 1073 1100 1107 1419 41125 1126 1128 17131 
1136 1151 1157 1162 1163 1173 1174 1176 1173 1196 1197 1202 


R2 


R3 


— ( 


HODEL 3220 WRITEASLE CONTROL STORE TEST 06-232N91R00A12 FAGE 85 
SYMBOL TABLE €& CROSS REFERENCE LIST 


1240 1262 1268 1259 1278 1276 
1314 1318 1320 1322 1456 1464 
1629 1633 1812 2616 2617 2632 
3305 3354 3361 3510 3511 3527 


3564 3566 ; 

9000 0001 92* 117 129 130 132 137 
252 263 264 265 266 268 
343 348 354 356 357 369 
492 496 584 585 5390 591 
653 656 657 662 663 675 
709 710 714 F712 718 719 
841 831 861 865 875 885 


1087 1988 11711 1112 1131 1133 
1150 41514 17153 1155 11690 1161 
1212 1212 1213 4214 1215 1217 
1246 1253 1254 1255 1256 1256 
1270 1271 1300 13901 4302 1303 
1316 1318 1319 4322 1323 1363 
1624 1625 1626 1627 1628 1630 
2827 2832 2835 2840 3245 3248 
3362 3511 3513 3517 3519 3522 
3538 3541 3545 3547 3550 3554 


0000 OOOA 101* 1446 1446 1447 1466 1486 
1577 

9000 Q00R 102* 

0000 G00C 103* 325 346 355 373 488 
595 904 1541 1594 1596 1597 

0909 O00D 104* 14542 1553 1530 1591 1592 
2635 2635 

9000 OOOF 105* 299 300 301 301 302 
439 489 492 GSy 558 563 
1580 1588 1650 2619 2637 

0000 QOOF 107* 283 291 292 293 331 
581 582 702 703 798 898 


1084 4124 1167 1168 1232 1239 
1798 2620 3535 3542 3555 3567 


0000 0002 93* 114 133 139 222 223 
254 258 259 260 270 271 
319 399 400 405 406 408 
452 457 474 475 £24 627 
642 644 645 654 6s 656 
799 804 812 817 218 819 
886 889 934 969 970 972 


1222 4223 1224 1224 1228 1229 
4367 1367 1368 1448 1462 4463 
1558 1559 1569 1578 1579 1604 
1613 1615 1616 1618 16217 1622 
1649 1804 1806 1808 2366 2623 
2819 2829 2833 2836 3246 3249 


3551 

0000 0903 94* 118 119 120 245 246 
282 283 370 374 378 380 
568 742 745 922 925 925 


08:11:57 


05/13/82 
1278 1282 
1500 1551 
2816 2828 
3539 3550 
221 233 
272 274 
376 383 
614 612 
682 683 
814 822 
933 936 
1137 1138 
1163 116 
1220 .4322 
1258 1259 
1305 1306 
1369 1457 
2622 2626 
3298 3299 
3526 3526 
4hee@ 1548 
502 507 
1658 
1653 1655 
304 362 
915 918 
503 506 
900 902 
1567 1581 
234 244 
273 280 
415 418 
635 637 
778 779 
842 852 
$78 1919 
1244 = 1246 
4471-1539 
1607 1509 
1€26 1528 
2625 2626 
3356 3363 
266 2€7 
445 440 
1012 = 1013 


OO la 
boo 
dz ia 


Jw 1 
m7 OO wa 
Ww tn oO 


ah 
Nd NO 
WoW FO 


DJ ON b> 
ONWwW DDO”) 


= i 
u 


Bu 
> 
NO 


ene 


MODEL 3220 WRITEABLE CONTROL STORE TEST 06-232M91R00A13 PAGE 86 08:11:57 05/10/82 
SYMBOL TABLE € CROSS REFERENCE LIST 
1056 1068 1312 1317 1321 1324 1325 1328 4329 1332 1333 1355 


1356 1364 1368 7449 1805 1809 2810 2811 2820 2822 2832 3342 
3343 3345 3346 3347 3359 3351 3352 3515 3537 3546 3568 3569 


R4 SGOO O004 95* 122 123 124 126 134 136 275 276 277 278 278 
321 323 332 334 335 339 3414 350 352 356 391 396 
406 411 416 417 420 423 428 430 431 431 433 434 
435 436 450 455 468 470 487 490 547 569 743 900 
908 910 914 916 373 974 975 976 976 7915 1016 1017 


1018 4018 1019 1064 1065 1077 1079 1086 1991 1093 1108 1119 
1115 4177 1157 1172 1174 1176 1186 1187 1283 1326 1327 1335 
1354 1806 2835 3516 3518 3520 3524 3524 3525 3544 3548 


R5 0000 0005 96* 124 126 127 127 129 130 131 134 136 290 312 
372 374 413 ui 426 426 438 438 uu 457 555 559 
647 673 699 700 736 737 740 748 833 Buy 854 BAR 
878 891 $73 1077 10814 1194 1468 1469 1473 1475 1485 1488 


1522 1523 1640 1642 4777 1778 1769 1790 1796 1797 1811 2057 
2059 2063 2065 2067 20693 2632 2633 2809 2812 2812 2823 2823 
2827 2838 2842 2844 3263 3265 3365 3517 3518 3547 3548 3549 


RSHEX 9960 4117C 459 741 749 968* 1813 

R5X 9000 1188 973* 979 

RSOXA 9000 1196 977* 

RSXB 0300 119E 971 980* 

R6 0000 0006 97* 121 131 138 254 255 256 256 371 372 379 394 
398 447 463 864 464A 496 497 498 501 505 509 513 
559 561 566 897 905 906 912 923 926 1076 1082 1469 


1471 1475 1477 1492 1493 1495 1508 1509 1516 1517 1772 1777 
1780 1782 1784 1789 1792 1794 1797 2821 3531 3532 3533 3538 


R? 0900 9007 98* 556 564 571 

R8 0000 0008 99* 132 133 138 139 557 568 572 3570 

RS 9000 0009 100* 1173 1180 1181 1183 1184 1186 1279 

RANDOM 9000 20FC 2703 : 2728* 

RANDW 0000 25AE 2337 2353 2474 2478 3130* 

RDCHARO 9000 OB98 333 335* 

RDCHAR1 0900 OBB2 340 343* 

RDCHR 0000 OBBA 331* 349 358 

RDCHR 1 9000 OBC8 342 350* 

RDCHR2 0900 OBA6 336 339* 

RDCHR3 9000 OBBC 344 347* 

RDCSL 0000 264C 32911* 3224 

READCS 0500 263E 2258 2269 2292 2374 2347 2362 3207* 

READD 5900 260A 2141 2162 2413 3187* 

RESPRT 9000 OBE6 314 317 337 345 362* 368 477 750 

RET 9900 OOOE 106* 775 784 785 789 790 794 795 800 801 805 806 
807 836 846 856 870 880 893 1572 1639 3360 

RET2 cao0 0001 45* 1848 3325 3381 

RN1 8000 213C 2698 2704 2745* 

RN10 6900 2144 2747* 

RN141 0900 2148 2748* 7 

RN6 9000 2138 2729 2738 274K * 

RT 9000 2140 2700 2705 2746 * 

RNSAVS 0000 2120 2728 2739 2743* 

RP 6990 157C 1355 1539* 


J ) a 


Me 
a 
a 


MODEL 3220 WRITEABLE CONTROL STORE TEST 06-232M91R00A13 PASE 87 08:11:57 05/19/82 


SYMBOL TABLE & CROSS REFERENCE LIST 


ESAVE 0000 2AE8 115 $32 939 968 986 1011 1023 4055 1100 14197 1719 1202 
1240 1335 1497 3283 3305 3504* 

RUN 0000 184¢C 383 1767* 

RUNIT 0000 ODEO 384 576* 

SELTST 0000 16E8 597 676 722 1695* 

SET.RIN 0000 1704 1300 13905 1707* 

SETKB 0000 141A 262 329 695 1268* 

SETUP Oo000 T4484 1156 1305* 

SINK 0000 1606 1784 4213 1219 1227 1257 1262 1278 1613 1683* 

3? 0000 OA6E 232* 

STAENSG 0000 1754 854 1726* 

START 0000 OA8O 232 243* 

START 1 0000 OA60 . 145 220* 238 1819 

START3 0000 OATE 151 152 153 238* 

STAT 0000 0009 51* 1841 1842 1843 1845 7860 4861 1970 1911 1935 1936 7994 
1995 2020 2021 2042 2081 2082 

STOP.TST 0000 18E0 483 1817* 

TAE 0000 0008 50* 2767 2768 2769 2779 3193 3793 3195 3196 3199 3206 3215 
3215 3276 3217 3219 3221 2374 3377 3318 3319 3326 2322 3323 
3329 

TABPRIN? 0000 18BA 1764 1302* 

TABPRT1 0000 18C4 180E€* 1819 

TALLI 0600 26°66 1874 1897 1906 1931 1956 1978 2009 2037 2077 2027 2584 2573 
2643 2833 3260 3281* 

TALLIO 0900 2712 3285 3288* 

TALLI14 0000 2728 3292 3295* 

TALLI2 0000 274A 3287 3302 3305* 

TALLY 6000 1804 696 175S5* 2840 3261 3284 

TBCSS1 0000 1AA5 2046* 

TEMP 0000 2AE4 417 425 430 433 435 3502* 

TEST 0006 17C8 4O2 4ac 550 552 5714 572 534 590 630 6:33 1750* 

TESTO 9000 1888 2111 24235 

TESTOO 0000 1388 21360* 

TESTO1 0000 1C04 2787* 

TESTO3 0000 1D26 2332* 

TESTO6 0000 IEEE 2539* 

TESTO7 9000 20C0 2697* 

TESTI 09900 1C04 2111 2185* 

TEST?Z 0000 1C6C 2111 2247* 

TaST3 0000 1D26 2111 2335* 

TEST4 0000 1D76 2111 237.5" 

DLeSls 9000 1E3C 2111 Z46s* 

EySE5 09000 1EEE 2111 2537* 

TEST? 0095 20C0 21174 2695* 

TESTS 0000 2152 2111 2760* 

TESTI 0000 217A 2112 2804* 

TESTA 0000 1930 1865* 

TESTS 0000 194A 1856 1877* 

TESTC 0000 1956 1889* 

TESTD 0000 197C 1890 1899 1910* 

TESTE 0000 1S9AC 1912 1935* 

TESTEF 1 0000 19D4 1948 1961* 


TESTEF2 0000 1A0E 1987* 


te 


om 


MODEL 3220 


SYMBOL TABLE 


TESTF 
TESTS 
TESTOP 
TESTS 
TIME 
TIMER 
TITLE 
TOTAL 
TOTERR 
TOTMSSG 
TSAVE 


TST 


TSTOOA 
TSTOOB 
TSTO18 
TSTO1C 
TSTO2A 
TSTO25 
TSTO2C 
TSTO2D 
TSTO2E 
TSTO2F 
TSTO2H 
TSTO2J 
TSTO3A 
TSTO3B 
TSTO4A 
TSTOGB 
TSTOUC 
TSTO4D 
TSTO4E 
TSTO4F 
TSTO4s 
TSTOSA 
TSTO5B 
TSTOSC 
TSTOSD 
TSTOSE 
TSTOSF 
TSTOSG 
TSTO6A 
TSTO6B 
TSTOS6C 
TSTOSD 
TSTO6E 
TSTOSF 
TSTO6H 


TOTATA 
teaver n 


TSTO8H 
TSTO8L 


) 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00090 
0090 
0000 


0009 


9006 
0000 


WRITEABLE CONTROL STORE TEST 06-232M91RO0A13 PAGE 


& CROSS REFERENCE LIST 


1A56 
1A90 
OD8E 
1B60 
OASE 
1762 
1B24u 
16=E 
16F0 
1732 
2826 


OCOE 


1B92 
1BCA 
1010 
1C3z 
1072 
1¢90 
1CEE 
1CC6 
ICCA 
ICRE 
1502 
1D06 
1332 
1D56 
AD7C 
1D94 
1DA8 


pC 
1DDC 
iDPA 
4EO2 
TESE 
1E85 


2018* 
2018 


2079 
2039* 
547* 


2422* 


718 
1699* 


2012 
2223 


2496 
3240 


74G 
1853 


2495 
2336 


2498 
3270 


88 


1698* 
3298 


2515 


2338 
2499 


08:11:57 


3300 


3111 


2338 
2511 


05/10/82 
3112 3135 
2352 2352 
2515 2517 


3136 


2354 
2705 


3240 


2473 
3111 


3248 


2475 
3135 


omy 


ft 


MODEL 


SY¥“3B0L 


WMNWMMNYN 

tis te: Uae Me ce | 
iw wm w 

hd lap ou 6G wale 
SA ACA PS ON 


a ae ie: Me ae Bar 


” 
Hd 
tw 


Wy 
A) 
3 
ud 
ne) 
A 
5) 


TSTSRKS 


TSTDYG 

TSTEND 
TST¥SsS 
TSTOGF1 
TSTOP2 
TSroP3 


ADH 
TSTCEY 


TI1E.NEW 


TTEERR 


222i vie 


WCSHE 


aS) 


wy 


PWN - 


WRITEABLE CONTROL 


21BA 


1358. 


13AA 
13BA 
13D6 
13E8 
13E0 
13D2 
13F4 
OECY 
171C 
ODA6 
ODAE 
ODCcY4 
ODCE 
1FBA 
1FB2 
200C 
1FFC 
0006 
143C 
1154 
4156 
1870 
1894 
283C 
2590 
T6EAR 
16EC 
181C 
1810 
25F8 
14FE 
1WHFC 
1505 
152A 
T4D4 
14E2 
1540 
1544 
1548 
1546 
0004 


1466 
1476 
1486 
OD76 
OD6E 
284C 


FORE 


TABLE & CROSS KEFERENCE LIST 


2827* 
646 
1218 
1232* 
1208 
1246* 
1243* 
1245 
730 
2169 
1717* 
555* 
570 
566* 
569* 
2651 
2615* 
2645* 
2640* 


567 
927 
1776* 
17388* 
1552 
2512. 
581 
582 


2161 
1474 


1475* 
1364 


1496 
1502* 
1476 
1504* 
1850 
2139 
2262 
2299 
3146 
1315 
1319 
1323 
1752 
1753 
3398* 


669 
1227* 
1249 
1221 
1248 


815 
2230 
1718 


$22* 


1597 
2714 
6509 
690 


s173% 


T4u6* 


1500* 


1504 
1508* 


1851 
2150 
2263 
2378 
3147 


1754 


692 


1226 


1056 
2315 


1634 


3109* 


1852 
2154 
2265 
2378 
3148 


1755 


1129 


2363 


1658 


1853 
2156 
2271 
2379 
3150 


C 


TEST 06-232M91ROCA13 PAGE 


ata Ky =m 
noo son on 
tm} nek DOOD 


LW RDO WD 


08:17:57 05/10/82 


4202* 2503 2521 


1240* 


1158 1253* 
2524 2650 2824 


1062 1166 1696* 


2139 2130 2131 
2160 2160 2251 
227 2276 2277 
Z4CG3 2576 257 

3207 3207 3208 


ho 
cn 


300 10 th ad 
Fin 


WINN fo 
blo 


(J hI RD KI AD 


2136 
2260 
2296 
34745 
3378 


Swe 


